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ABSCHNITT EINS 


Einführung in die Bedienung von SIMON’s-BASIC 

SIMON's-BASIC ist eine BASIC-Erweiteruruj für den Commodore 64. 
Diese Erweiterung wird mit 

LOAD ;8 (RETURN) 

geladen und mit 

RUN (RETURN) 


gestartet. 

Das System meldet sich mit 

*** EXPANÜED CBM V2 BASIC 
30719 BASIC BYTES FREE 


Dem Benutzer stehen nun über lOÜ neue BASIC-Befeh 1e zur Verfügung. 
Jeder Befehl wird in dieser Anleitung erklärt und die Benutzung 
an vielen Beispielen gezeigt. 


Modulversion 

Wenn Sie mit SIMON’S BASIC arbeiten wollen, gehen Sie bitte folgendermaßen vor: 

1. Schalten Sie Ihren COMMODORE 64 aus. 

2. Stecken Sie das Modul „SIMON’S-BASIC“ in den Modulsteckplatz Ihres COMMO¬ 
DORE 64 (Beschriftung des Moduls nach oben). 

3. Schalten Sie Ihren COMMODORE 64 ein, das System meldet sich mit: 

*** EXTENDED CBM V2 BASIC *** 

30719 BASIC BYTES FREE 

Jetzt stehen Ihnen über 100 neue BASIC-Befehle zur Verfügung. 

Wichtig: 

Stecken bzw. entfernen Sie niemals das Modul, wenn Ihr COMMODORE 64 einge¬ 
schaltet ist!!! 


7 



ABSCHNITT ZWEI 


PrograiBiiier-Hi Ifen 

2.1 Einführung 

SIMON's-BASIC bietet verschiedene Befehle, die beim Eingeben 
und Anfügen von BASIC-Programmen sehr hilfreich sind. Dabei ist 
es unbedeutend, ob die Programme Befehle des SIMON's-BASIC 
verwenden oder nicht. Der Befehl "KEY" ermöglicht es, die 
Funktionstasten des Commodore 64 zu programmieren. 

"DISPLAY" listet die Kommandos der Funktionstasten. 

"AUTO" und "RENUMBER" übernimmt die automatische Zeilen¬ 
nummerierung. "MERGE" verbindet ein gespeichertes BASIC- 
Programm mit einem Programm im Speicher des C=64. 

2.2 Befehle für die Benutzung der Funktionstasten 
2.2.1. KEY 

Format : KEY Nummer, "Befehl" 

Ziel : Die Funktionstaste wird mit einem Befehl belegt. 

Der Befehl KEY ermöglicht es, die Funktionstasten mit den ge¬ 
wünschten Befehlen zu belegen und diese Belegung auch zu än¬ 
dern. Die Nummer im Format des Befehls ist identisch mit der 
Nummer der Funkt ionstaste (1 - 16). Der Befehl muß in Anführ¬ 
ungszeichen gesetzt werden und darf nicht mehr als 15 Zeichen 
umfassen. 

Erreichen der Funktionstasten: 


Fl, 

F3, F5, F7 

drücken 


Fl, 

F3, 

F5, F7 

F2, 

F4, F6, F8 

drücken 

SHIFT 

Fl, 

F3, 

F5, 

F5 

F9, 

F11,F13,F15 : 

drücken 

C= Taste 

Fl, 

F3, 

F5, 

F7 

FlO, 

,F12,F14,F16 ; 

drücken 

SHIFT C= Taste 

Fl, 

F3, 

F5, 

F7 


Beispiel 

Eingabe : KEY 8, "MOB SET" (RETURN) 

Ergebnis : Der Befehl MOB SET wird nach drücken der F8-Taste 
auf dem Bildschirm angezeigt. 

Löschen der KEY's: KEY 8, " " (RETURN) 

2.2.2. Anhängen von (RETURN) 

Bei bestimmten Befehlen ist es sinnvoll, sie gleich mit 
°RETURNp abzuschließen, damit dieser Befehl sofort ausgeführt 
wird. Dazu geht man wie folgt vor: 

a) gewünschte Belegung einer Funktionstaste mit dem Befehl KEY 
eingeben, nicht mit (RETURN) abschließen. 

b) + CHR$(13) anhängen und (RETURN) 

Der gewünschte Befehl wird nach Drücken der Funktionstaste 
angezeigt und gleich ausgeführt. 

Beispiel: KEY 7, "LIST" + CHR$(13) (RETURN) 

Ergebnis: Nach drücken der Funktionstaste F7 erscheint LIST 
auf dem Bildschirm und wird ausgeführt, d.h. das 
Programm wird automatisch aufgelistet. 
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2.2.3 DISPLAY 

FORMAT: DISPLAY 

ZIEL: Belegung der Funktionstasten anzeigen. 

BEISPIEL: Eingabe 

DISPLAY (RETURN) 

KEYl; "" 

KEY2, "" 

KEY3; •" 
usw.bis KEY16,'" 

2.3 AUTO 

FORMAT: AUTO Startnummer, Schrittweite 

ZIEL: Automatische Zeilennummerierung mit vorgewählter 

Schrittweite. 

Nach der Eingabe des Befehls AUTO erscheint die ersten Zeilen¬ 
nummer auf dem Bildschirm. Nun kann die gewünschte Basic-Zeile 
eingegeben werden; sie wird mit (RETURN) abgeschlossen. Es er- 
erscheint eine neue, um die Schrittweite erhöhte Zeilennummer. 
Um diese Funktion zu beenden, drückt man nach einer neuen Zei¬ 
lennummer (RETURN). 

Beispiel 

Eingabe: AUTO 10,5 (RETURN) 

Anzeige: 10 

Eingabe: GET A$ (RETURN) 

Anzeige: 10 GET A$ 

15 

Eingabe: IF A$= "" THEN 10 (RETURN) 

Anzeige; 10 GET A$ 

15 IF A$= THEN 10 
20 

Eingabe: (RETURN) (AUTO - MODE verlassen) 

2.4 RENUMBER 

FORMAT: RENUMBER erste Zeilennummer, Schrittweite 

ZIEL: Umnumerierung der Zeilennummern bei Programmen. 

RENUMBER übernimmt automatisch die Umnumerierung der Zeilen¬ 
nummern. Das Programm beginnt nach Ausführung des Befehls mit 
der ersten Zeilennummer, die eingegeben wurde. Die folgenden 
Zeilennummern sind jeweils um die einqeqebene Schrittweite 
erhöht. 

Dieser Befehl ist besonders sinnvoll, um in einem Programm 
Platz für weitere BASIC-Zeilen zu schaffen. 

ACHTUNG: RENUMBER verändert keine Sprungadressen der Befehle 
GOTO und GOSUB 

SIMON*s BASIC bietet jedoch auch hierfür eine Mög¬ 
lichkeit (s. Abschnitt 9). 

BEISPIEL: Neue Zeilennumerierung des folgenden Programms 

1 PRINT-U" 
a FOR X=0 TO 15 

3 : POKE 53S80,X 

4 t PAUSE 1 

5 NEXT X 
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Eingabe: 

RENUMBER 100, 10 (RETURN) 

LIST (RETURN) 

Anzeige: 

100 PRINT"J" 

110 FÜR >:=0 TO 15 
120 : POKE 53230,X 

130 ; PAUSE 1 

m0 NEXT X 

2.5 PAUSE 

FORMAT: PAUSE "Kommentar", Anzahl von Sekunden 
oder: PAUSE Anzahl von Sekunden 
Ziel: Verzögern der Programmausführung 

PAUSE bietet die Möglichkeit, die Programmausführung an einer 
bestimmten Stelle für eine bestimmte Dauer zu verzögern. Diese 
PAUSE kann durch drücken von (RETURN) abgebrochen werden. Zu¬ 
sätzlich besteht die Möglichkeit, einen Kommentar auf den Bild¬ 
schirm zu bringen. 

Beispiel: Programmverzögerung um 10 Sekunden 
Einga be: 

105 PAUSE 10 

135 PAUSE "DRÜCKEN SIE RETURN, UM DAS PROGRAMM FORTZUSETZEN", 10 


2.6 LIN 


FORMAT: LIN 

ZIEL: Bestimmeh der Bildschirmzeile, in der sich der Cursor 

befindet. 

BEISPIEL: 

90 PRINT-J" 

100 FÜR 1=1 TO 5 
110 : A=LIN 

120 : PRINTLIN,A 

130 NEXT I 

2.7 CGOTO 


FORMAT: CGOTO Ausdruck 

oder: CGOTO Operand Operator Variable 

ZIEL: Sprung im Programm zu einer veränderbaren Zeilen¬ 

nummer 

Der CGOTO-Befehl ermöglicht es, in eine Zeile zu springen, 
die erst bei der Ausführung des Befehls berechnet wird. 
Beispiel: 


100 
1 10 
130 
140 
150 
160 
170 
180 


FOR 1=1 TO 5 
: CGOTO 1*10 + 130 


END 



PR I l'JT "1 = 1" 

NEXT 

I 

PRINT"1=2" 

NEXT 

I 

PRINT"I=3" 

NEXT 

I 

PRINT"I=4" 

NEXT 

I 

PRINT"I=5" 

NEXT 

I 
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2.8 RESET 


FORMAT: RESET Zeilennummer 

ZIEL: Setzen des DATA-Zeigers auf den ersten Wert einer be¬ 

stimmten DATA-Zeile. 

Im Standard-BASIC werden alle DATA-Anweisungen nacheinander 
gelesen. Es besteht nur die Möglichkeit, durch den Befehl 
RESTORE den DATA-Zeiger auf den ersten Wert der ersten 
DATA-Anweisung zu setzen. 

RESET bietet die Möglichkeit, den DATA-Zeiger auf den ersten 
Wert einer bestimmten DATA-Zeile zu setzen. Beim nächsten 
READ-Befehl wird dieser Wert gelesen und der DATA-Zeiger um 
eine Stelle nach hinten versetzt. 

Be ispiel: 


100 REM 

110 REM BEISPIEL : 

120 REM RESET 

130 REM :f.1c nt ♦ i. ** :f. * 

140 PRINT"fcJ" 

150 PR INT "BITTE l^JPlEHLEN 

160 PRINT"l.> ZAHL £.>BUCHSTABE 3.) FARBE 
170 IMPUT Z 

180 IF Z<1 OR Z>3 THEN 160 
190 IF Z=1 THEN RESET 300 
£00 IF Z=£ THEN RESET 310 
£10 IF Z=3 THEN RESET 3£0 
££0 FOR 1=1 TO 4 
£30 : READ A:^:PRINTA^ 

240 NEXT I 
£50 GOTO 150 
300 DATA 3,5,7,9 
310 DATA A,S,D,F 

320 DATA ROT, BLAU , GELB ^SCHLvJARZ 
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2.9 


MERGE 


FORMAT: MERGE "Programmname", Gerätenummer 

ZIEL: Laden eines vorher gespeicherten Programms in den 

Arbeitsspeicher des Commodore 64. 

Ein im Arbeitsspeicher vorhandenes Programm bleibt 
erhalten. Dabei werden Programmname und Gerätenummern 
entsprechend dem LOAD-Befehl verwendet. 

Achtung: Bei Verwendung des MERGE-Befehls dürfen in dem Pro¬ 
gramm; das geladen wird, und dem Programm im Arbeits¬ 
speicher keine gleichen Zeilennummern Vorkommen. Es 
empfiehlt sich; das Programm im Arbeitsspeicher mit 
dem Befehl RENUMBER (2.4) umzunumerieren. 

2.10 Hilfen zub Listen der Prograame 

2.10.1 PAGE 

FORMAT: PAGE n 

ZIEL: Teilen eines Programms in Abschnitte zu n+1 Zeilen 

PAGE bietet die Möglichkeit; die Anzahl der Bild¬ 
schirm-Zeilen vorzuwählen. Nachdem dieser Befehl aus¬ 
geführt wurde; zeigt der Befehl LIST genau n+1 Bild¬ 
schirmzeilen des Programms an. Jeder weiterer Ab¬ 
schnitt wird nach drücken der (RETLIRN)-Taste gelistet. 
Bei n=0 hat der PAGE-Befehl keine Wirkung auf den 
LIST-Befehl. Das LISTEN kann mit der RUN/STOP-Taste 
unterbrochen werden. 

Achtung:Der Parameter n bezieht sich auf Bildschirmzeilen; 
nicht auf Programmzeilen. 


2.10.2 OPTION 

FORMAT: OPTION n 

ZIEL: Hervorheben aller neuen Befehle des SIMON's-BASIC 

OPTION mit dem Parameter n=10 bewirkt eine reverse Darstel¬ 
lung der SIMON‘s-BASIC-Befehle; wenn das Programm gelistet 
wird. Ein beliebiger Parameterwert schaltet das Hervorheben 
wieder ab. 
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2.10.3 DELAY 


FORMAT: DELAY n 

ZIEL: Verändern der Geschwindigkeit, mit der ein Programm 

gelistet wird. 

Während der Ausführung von LIST besteht die Möglichkeit, die 
Geschwindigkeit, mit der die Zeichen auf den Bildschirm kommen, 
zu verändern. Hierzu gibt man vor dem LIST-Befehl den Befehl 
DELAY n (RETURN) ein. Der Parameter n kann Werte von 1 bis 255 
annehmen; n=l höchste Geschwindigkeit, n=255 niedrigste Ge¬ 
schwindigkeit. 

Nach LIST (RETURN) wird das Programm mit der gewünschten Ge¬ 
schwindigkeit gelistet, wenn die SHIFT -Taste gedrückt ist. 
Weiterhin besteht die Möglichkeit, den LIST-Vorgang durch 
drücken der CTRL -Taste zu verlangsamen oder ihn durch drücken 
der C= Taste zu unterbrechen. 

2.11 FIND 

FORMAT: FIND Basic-Code 

oder: FIND Character String 

ZIEL: Suchen eines BASIC-Codes oder Character String und An¬ 

zeigen der Zeilennummern, in der der Code bzw. String 
steht. 


Der Befehl FIND durchsucht das Programm nach dem angegebenen 
BASIC-Code oder Character String und zeigt auf dem Bildschirm 
die Zeilennummern an, in denen das Gesuchte steht. 

ACHTUNG: Jede Leerstelle (SPACE) nach FIND wird als Zeichen 
angesehen, nachdem gesucht werden soll! 

2.12 Hilfen zur Fehlerbeseitigung 

2.12.1 TRACE 

FORMAT: TRACE 10 
bzw: TRACE 0 

ZIEL: Anzeige der Zeilennummer, die gerade abgearbeitet wird. 

Der Befehl TRACE 10 wird eingegeben, bevor das Programm ge¬ 
startet wird. Wenn das Programm ausgeführt wird, erscheint 
in der rechten oberen Ecke ein Fenster, in dem die sechs 
letzten Zeilennummern angezeigt werden. Die Zeilennummern 
rollen automatisch, so daß die unterste immer der zuletzt aus¬ 
geführten BASIC-Zeile entspricht. 

Die Zeilennummern werden im HIRES oder MULTI-COLOUR-Modus 
nicht sichtbar. 

Das Fenster überdeckt den normalen Bildschirminhalt. 

Der TRACE-Befehl wird durch Eingabe von TRACE 0 beendet. 
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2.12.2 KETRACh: 


EÜKMAT: KETRACE 

ZIEL: Nochmalige Anzeige des TRACE-Fenst.ers 

Wird im TRACE-Modus ein Programm unterbrochen und der Bild¬ 
schirm gelöscht; dann kann das Fenster mit den letzten Zeilen¬ 
nummern durch den Befehl RETRACE nochmal dargestellt werden. 

2.13 DUMP 
FORMAT: DUMP 

ZIEL: Listet die Variablen eines Programms und ihre 

momentanen Werte. 

Nach dem Befehl DUMP werden alle Variablen mit ihren momen¬ 
tanen Werten in der Reihenfolge; in der sie im Programm Vor¬ 
kommen; gelistet. Es besteht die Möglichkeit; das Listen durch 
drücken der CTRL -Taste zu verzögern. 

2.14 GOLD 

FORMAT: CÜED 

ZIEL: Bringt den COMMODORE 64 in den Ausgangzustand. 

NacTi GOLD (RETURN) wird der Computer in den Ausgangszustand 
von SIMON's-BASIC gesetzt und meldet sich wie nach dem Laden 
des SIMON's-BASlC. 

ACHTUNG: Das Programm im Arbeitsspeicher geht verloren. Es 
kann nur gerettet werden, wenn man bevor man eine 
neue BASIC-Zeile eingibt, den Befehl OLD ausführt. 

2.15 Hilfen zum Prograamschutz 

2.15.1 Einführung 

SIMON's-BASIC bietet zwei Befehle, um bestimmte Zeilen des 
BASIC-Programms zu schützen. 

Damit wird verhindert, daß unbefugte Personen Teile des Pro¬ 
gramms einsetzen können (z.B. KENNWORTE, KENNZEICHEN ...) 

ACHTUNG: Es gibt keine Möglichkeit, diese Befehle aufzuheben, 
außer der Neueingabe der geschützten Zeilen. Es ist 
deshalb ratsam, eine ungeschützte Kopie für den 
eigenen Gebrauch zu speichern. 

2.15.2 DISAPA 
FORMAT: DISAPA: 

ZIEL: Anzeigen, daß die Anweisung in der Programmzeile ge¬ 

schützt werden soll. 
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Der DISAPA-Befeh 1 wird als Befcdtl in (Miicr Pf'ü(]ramm/e i 1 e ver¬ 
wendet, um anzuzeigen, daß diese geschützt wet'den soll. [ r' 
setzt automatisch vier [)op()e 1 [)unk te (:) vor den nacfif'o 1 (jenden 
Befehl. 

Beispiel: Zeile 135 und 150 des folgenden f’r'ogramms sollen ge¬ 
schützt werden. 

100 
1 10 
120 
130 
135 
140 
150 
1 60 


2.15.3 SECURE 

EORMAT: SECURE ü 

ZIEL: Schützen aller Programm/ei1en, in denen der Befehl 

DISAPA-Bef eh 1 vor'kommt. 

Der SECURE-Befeh 1 be>virkt, daß der Code in einer f’rogramm- 
zeile, der hinter dem DISAPA-Befeh 1 steht, gescliüt/t wird. 
Die Programmzeile wird normal ausg ef ütir t. 

Beispiel: Das Programm von 2.15.2 wird geschützt 

100 REM :f ♦ •+ :f f + ■+■ + ;f ♦ ♦ ♦ t ♦ ♦ ♦ + + ♦ '* + ♦ 

110 REM ■*■■■¥■¥ BEISPIEL : *** 

120 REM ♦ + + "DISr^PA UND SECURE” ¥ ¥ * 

130 REM + +• ♦ ♦ + +• + +• ♦ ♦ ¥ + + ¥ ¥ ¥ f + + f ¥¥ ¥ ¥ ¥ :+ +■ ♦ f 

135 

140 INPUT"C ODE ” ; ei 
150 

160 PR INT"CODE OK" 


2.16 OLD 

FORMAT: OLD 

ZIEL: Aufheben des Befehls NEW 

OLD ermöglicht es, ein Programm, das mit dem Befehl NEW ge¬ 
löscht wurde, zurückzuholen und auszuführen.(Es werden die 
Zeiger START OF BASIC und END OF BASIC auf den ursfirüng 1 ichen 
gesetzt). 

Achtung: Der Befehl ist nur wirksam, solange noch keine neue 
BASIC-Zeile eingegeben wurde. 


REM ♦ ♦ ♦ 4 ♦ ♦ ¥ ¥ ¥ *: ¥ ¥ ¥ ¥¥¥¥ ¥ ¥ ♦ ¥ ¥ ¥ 

REM ¥¥¥ BEISPIEL : ¥¥¥ 

REM ♦¥ ¥ "DISAPA UND SECURE " ♦¥ ¥ 


D ISAPO: : : : CODE=123 
IKPUT"CODE " ; 

DISAPei:: :: IF e<M23 THEN END 
PR INT"CODE OK" 
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ABSHNITT DREI 


ZEICHENKETTEN-OPERATIONEN 


3.1 Einführung 

SIMON's-BASIC bietet umfassende String-Operationen, forma¬ 
tierte Ausgabe auf dem Bildschirm und INPUT-Befehle. 

In Verbindung mit dem Standard String-Operationen des 
COMMODORE 64 BASIC wird somit eine vielfältige Kontrolle über 
Zeichenketten ermöglicht. Alle Befehle dieses Abschnitts kön¬ 
nen im Edit- oder Programmmodus benutzt werden. 

3.2 Zeichenketten 
3.2.1 INSERT 

FORMAT: INSERT ("einzusetzender String", "äußerer String", p) 
ZIEL: Einsetzen eines Strings in einen anderen. 

INSERT ermöglicht es, einen String in einen anderen einzu¬ 
bauen. Dabei entsteht ein neuer String. 

Der Parameter p gibt die Position an, ab welcher der String 
eingebaut werden soll. 

Der einzusetzende String und der äußere String können so¬ 
wohl als Stringvariable als auch in Anführungszeichen ange¬ 
geben werden. 

Der INSERT-Befehl kann zusammen mit logischen Vergleichs¬ 
operatoren benutzt weden. 


Achtung: 


Der Parameter p muß kleiner sein als die Länge 
äußeren Strings. Andernfalls folgt die Fehlerme 
7INSERT TO LARGE IN Zeile. 

Der neu entstandene String darf nicht länger al 
Zeichen sein, da sonst die Fehlermeldung 
7STRING TO LARGE IN Zeile folgt. 


des 

Idung 

s 255 


Beispiel: 

Eingabe: 100 A$= INSERT C IN", "COMMODORE FRANKFURT",9) 
110 PRINT A$ 

RUN (RETURN) 

Anzeige: COMMODORE IN FRANKFURT 
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Beispiel: 

Eingabe ohne NEW 
120 B$= " IN" 

130 C$= "COMMODORE FRANKFURT" 

140 D$= INSERT (B$, C$, 9) 

150 PRINT D$ 

RUN (RETURN) 

Anzeige 

COMMODORE IN FRANKFURT 
COMMODORE IN FRANKFURT 

Beispiel: Vergleichsoperatoren 

Eingabe 

NEW 

100 IIJSERT< " IN" , "COMMODORE FRANKFURT", 9 >> = " COMMODORE IN FRANKFURT 

110 PRINT A 

RUN (RETURN) 

Anzeige: 

-1 

Ergebnis: Ist die Bedingung erfüllt; so ist das Ergebnis -1 
(wahr); wenn nicht, so ist es 0 (unwahr), 

3.2.2 INST 

FORMAT: INST (“überschreibender String“, “alter String“,p) 

ZIEL: Überschreibt einen String ab einer bestimmten Posi¬ 

tion. 

INST überschreibt einen Teil des äußeren Strings niit einem 
String. Der Parameter p gibt die Position an, ab welcher der 
äußere String überschrieben wird. Dabei kann der neu ent¬ 
standene String länger sein als der alte, darf jedoch nicht 
länger als 255 Zeichen sein. 

Beispiel: 

100 A$= “CBM 4032“ 

110 B$= INST (“ 64 “, A$,4) 

120 PRINT A$ 

130 PRINT B$ 

RUN (RETURN) 

Anzeige: 

CBM 4032 
CBM 64 

3.2.3 PLACE 

FORMAT: PLACE (“gesuchter String“, “Zeichenkette“) 

ZIEL: Suchen eines bestimmten Strings. 
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IMace sucht in einer Zeichenkette nach einem bestimmten 
vStriruj. Als trgebnis wird eine INTEGER-Zah 1 geliefert, die 
die hüsit.ion des ersten gesuchten Zeichens beschreibt. Wird 
der gesuchte String nicht gefunden, so ist das Ergebnis 0. 

He i s() i e 1: 

100 A$= "1234567890" 

110 PRIN 1 PLACE ("6" ,A$) 

Anzeige: 

6 

3.2.4 DUP 

EORMAI: DUP ('Zeichenkette",n) 
oder: DUP (St r ing var i ab 1e, n ) 

ZIEL: Vervielfachen einer Zeichenkette 

Der DUP-Befehl vervielfacht eine Zeichenkette n-mal. Dabei 
entsteht ein neuer String, der aus n Zeichenketten besteht. 

Achtung: n muß so gewählt werden, daß der neue String nicht 
länger als 255 Zeichen ist (sonst Programmabsturz). 


Beispiel: 

100 A$= DUP ('*',10) 

110 B$= CBM 64 *' 

120 PRINT A$:PRINT B$:PRINT A$ 

RUN (RETURN) 

Ergehnis: 

********** 

* CBM 64 * 

********** 

3.2.5 CENTRE 

FORMAT: CENTRE "Zeichenkette" 
oder: CENTRE Stringvariab 1e 

Ziel: Zentrieren einer Zeichenkette in einer B1idschirmzei1e 

CENTRE bringt eine Zeichenkette genau in die Mitte 
einer ßi1dschirmzei1e. Die Zeichenkette darf dabei 
nicht länger als 39 Zeichen sein. 

Soll nach dem CENTRE-Befeh 1 ein weiterer CENTRE-ßefeh 1 
folgen, so muß dazwischen ein PRINT-Befehl erfolgen. 

Beispiel : 

100 A$= DUP ("*",10) 

110 B$= "* CBM 64 *" 

120 CENTRE A$:PRINT 
130 CENTRE B$:PRINT 
140 CENTRE A$ 

Anzeige: *★*★★*★*★* 

* CBM 64 * 
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3.2.6 USE 


FORMAT: USE "Zeichenkette' : PRINT 

oder USE “## text . ### text', 'Zeichenkette" : PRINT 
oder USE Stringvariable, Stringvariable : PRINT 
ZIEL: Formatierte Ausgabe von numerischen Werten. 

USE ermöglicht es, einen numerischen Wert in einem vorgege¬ 
benen Format auszugeben. 

Jedes 'Nummer"-Zeichen (#) gibt dabei eine Stelle vor bzw. 
nach dem Komma (Punkt) an. Es ist auch möglich, Text in eine 
formatierte Zeile einzubauen. Diese Formatangabe kann auch 
in Form einer Stringvariablen dargestellt werden. 

Die Zahl, die ausgegeben werden soll, muß als Stringvariable 
oder Zeichenkette dargestellt werden. D.h. Zahlen müssen vor 
der USE-Ausgabe mit dem Befehl STR$ in einen String umgewan¬ 
delt werden. 

Beispiel: 

100 REM ♦*flc****t.t***tt*****4'********’<'* 

110 REM BEISPIEL : 

120 REM *** USE *** 

130 REM 

135 A:^ = STR^< -t ♦ 100> 

140 PRINT"rf * 100 
150 

160 FOR y. = i TO 3 
170 : C* = DUP< B:* 

180 : D$=C^ + " . " + 

185 PRINT 

180 J PR INT"FORMAT : " ; D* 

£00 : USE "rf * 100 = " + :PR INT 

210 hEXT 
220 E^ü 

RUN (RETURN) 

n * 100 = 314.159265 

FORMAT i 

t. 100 = 14.15 

FORMAT : «##♦♦.#♦♦♦♦♦♦ 

if * 100 = 3 14. 1592 

FORMAT : 

if +. 100 = 314.159265 


3.2.7 AT 

FORMAT: PRINT AT.(s,z) "Zeichenkette" 
oder PRINT "1.String"AT(s,Z)"2.String" 
ZIEL: Positionierte Ausgabe eines Strings 
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AT posititioniert die Ausgabe eines Strings auf eine bestimmte 
Bildschirmposition. S gibt dabei die Spalte (0-39) und z die 
Zeile (0-24) an. Es ist möglich; den AT-Befehl mehrmals hin¬ 
tereinander zu gebrauchen. 

Bei spiel : 

100 PRINT "(SHIFT) (CLR/HOME)" AT(15,24) CBM 64 *" AT(15,0) 

CBM 64 *" 

Ergebnis: In der Mitte der obersten und untersten Bildschirm¬ 
zeile steht der String '* CBM 64 


3.3 KONTROLLE DER EINGABE 

3.3.1 FETCH 

FORMAT: FETCH "KontrolItaste",1,Variable 

FETCH ermöglicht es, bei der Eingabe von der Tastatur nur be¬ 
stimmte Zeichen zuzulassen und auch die Anzahl der Zeichen zu 
begrenzen. Die nach dem Anführungszeichen eingegebene Kon- 
trolltaste bestimmt dabei, welches Zeichen eingegeben werden 
kann; 1 gibt die Anzahl an, wieviele Zeichen höchstens einge¬ 
geben werden sollen. Der eingegebene String oder numerische 
Wert wird unter einer Variablen abgelegt, deren Namen angege¬ 
ben weden muß. 

KontrolItaste zugelassene Zeichen 

CLR/HOME: nur Großbuchstaben (CHR$(65) bis CHRS (90) 

CURSER DOWN: CHR$ (32) bis CHR$ (64) (Zahlen, Satzzeichen) 

CURSER RIGHT: nur Großbuchstaben und ihre Funktion mit Shift. 

Zusätzlich ist es möglich, die Eingabe auf ganz bestimmte 
Zeichen zu begrenzen, in dem man statt der Kontrol1 taste ge¬ 
nau die gewünschten Zeichen eingibt. 

Beispie 1: 

100 PRINT "FORTSETZUNG (3 ODER N) ? 

110 FETCH "3N", 1, A$ 

120 IF A$= "N" THEN PRINT "ENDE" : END 
130 PRINT "FORTSETZUNG" 

Ergebnis: Es ist nur möglich den Buchstaben 3 oder N einzu¬ 
geben. Alle anderen haben keine Wirkung. 

3.3.2 INKEY 
FORMAT: INKEY 

ZIEL: Abfrage, welche Funktionstaste gedrück wurde 

INKEY ermöglicht es, festzustellen, welche Funktionstaste 
gedrückt wurde. Das Ergebnis ist die Nummer der Funktions¬ 
taste (1 bis 16) oder 0 falls keine Funktionstaste gedrückt 
wurde. 
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Beispie 1: 

100 A= INKEY 

110 ON A GOSUB 1000,2000 
120 GOTO 100 

1000 PRINT "Fl WURDE GEDRÜCKT" : RETURN 
2000 PRINT "F2 WURDE GEDRÜCKT" : RETURN 

Ergebnis: Oe nach gedrückter Taste wird das entsprechende Er¬ 
gebnis angezeigt. 

3.3.3 ON KEY 

FORMAT: ON KEY "Zeichenkette", : GOTO Zeilennummer 

oder ON KEY Stri ngvari able, : GOTO Zeilennumer 

ZIEL: Springbefehl zu einer bestimmten Programmzeile 

Der Befehl ON KEY veranlaßt den COMMODORE 64 dazu, die Tasta¬ 
tur abzufragen, ob eine der in der Zeichenkette angegebenen 
Tasten gedrückt wurde. Jeder andere Tastendruck wird igno¬ 
riert. Wird einer der in der Zeichenkette angegebenen Buch¬ 
staben gedrückt, so wird das Programm in der Zeile fortge¬ 
führt, die nach dem GOTO angegeben ist. Die belegte Variable 
ST speichert den CHR$-Wert der Taste, die gedrückt wurde. (Die 
vollständige Liste der CHR$-Codes finden Sie in Ihrem COMMO¬ 
DORE 64-Handbuch.) 

Der Befehl ist besonders nützlich für Menü-geführte Programme. 

ACHTUNG: Wenn der "ON KEY"-Befehl benutzt wird, fragt der 

COMMODORE 64 die Tastatur ab, bis auf die Taste 
eines der angebenen Zeichen gedrückt wird. 

Deshalb ist der Befehl DISABLE anzuwenden, um 
den "ON KEY"-Befehl rückgängig zu machen. 

BEISPIEL: Definieren eines Bereichs von Eingabe-Zeichen. 

EINGABE: 10 PRINT"<SHIFT CLR/HOME> PRESS A KEY (E TO END)" 

20 B$="DGHNVMLPOE" 

30 ON KEY B$, :GOTO 50 
40 GOTO 20 

ERGEBNIS: Das Programm wartet, bis auf eine der Tasten gedrückt 

wird, die in der Zeichenkette angegeben sind. 

3.3.4. DISABLE 

FORMAT: DISABLE 

ZEIL: Aufheben des "ON KEY"-Befeh 1s. 

Die Tastaturabfrage, die mit ON KEY gestartet wird, wird mit 
DISABLE wieder augehoben. Dieser Befehl ist immer dann zu ver¬ 
wenden, wenn der Befehl ON KEY benutzt wurde. 

Wird dies einmal vergessen, so geht das Programm auf eine Schleife, 
d.h. das Programm kehrt jedesmal in die Zeile des "ON KEY"-Befehls 
zurück, wenn eine der angegebenen Tasten gedrückt wird. 
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BEISPIEL: Aufheben den "ON-KEY"-Befehls. 

EINGABE: 10 PRINT ‘'CSHIFT CLR/H0ME> PRESS A KEY (E TO END)" 

20 B$="DGHNVMLPOE" 

30 ON KEY B$, :GOTO 50 
40 GOTO 20 
50 DISABLE 

ERGEBNIS: Der "ON KEY"-Befehl wird aufgehoben, wenn eine der in 

der Zeichenkette angegebenen Tasten gedrückt wird. 

3.3.5. RESUME 

FORMAT: RESUME 

ZIEL: Aktivieren des vorausgehenden "ON KEY"-Befeh 1s . 

Mit dem Befehl RESUME wird der zuletzt definierte "ON KEY"-Befehl 
wieder aufgerufen. Darauf wartet das Programm wieder bis auf die 
Taste eines der in der Zeichenkette angegebenen Zeichens gedrückt 
wird. 



EINGABE: X 


ANZEIGE: keine Anzeige 

EINGABE: E 


ANZEIGE: IT WAS E 

READY 


ERGEBNIS: Ein Zeichen, das in dem String definiert wurde, führt 

zur Ausgabe einer Mitteilung. Jedes andere Zeichen 
wird ignoriert. 
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ABSCHNITT VIER 


ZAHLENBEHANDLUNG 


4.1 Einführung 

Dieser Abschnitt beinhaltet verschiedene Befehle, die den Um¬ 
gang mit Zahlen erleichtern. Dazu gehören Befehle zur INTEGER- 
Rechnung, Bestimmung der Nachkommastellen, die Umwandlung von 
Zahlen in andere Zahlensysteme sowie die Ergänzung der 
BOOLSCHEN-Algebra. 


4.2 Zusätzliche arithmetische Operatoren 

4.2.1 MOD 

FORMAT: MOD (x,y) 

ZIEL: Bestimmt den Rest nach einer Integer-Division. Der MOD- 

Befehl wandelt die Parameter x und y zunächst in zwei 
Integerzahlen um (ohne Aufrundung). Danach wird eine 
Integerdivision durchgeführt. Das Ergebnis ist eine 
Integerzahl, die den Rest der Division darstellt. Der 
Befehl kann direkt oder im Programm verwendet werden. 

Beispiel: 

PRINT MOD (11,4) (RETURN) 

Anzeige:3 

Ergebnis: 11:4=2 Rest 3 

4.2.2 DIV 

FORMAT: DIV (x,y) 

ZIEL: Bestimmung der Vorkommazahl bei einer Integer-Division 

Der Befehl DIV wandelt die Parameter x und y in zwei Integer¬ 
zahlen und führt eine Division aus. Das Ergebnis ist eine 
Integerzahl, die Vorkommazahl. Der Befehl kann direkt oder im 
Programm verwendet werden. 


Beispiel: 

PRINT DIV (11,4) (RETURN) 
Anzeige: 2 

Ergebnis: 11:4=2 Rest 3 
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4.2.3 


FRAG 


FORMAT: FRAG (n) 

ZIEL: Bestimmung der Nachkommazahl 

Der Befehl FRAG bestimmt die Nachkommazahlen einer Gleitkomma¬ 
zahl. Dabei werden maximal 9 Stellen hinter dem Komma angege¬ 
ben. 

Beispiel: 

PRINT FRAG (11/3) (RETURN) 

Anzeige: .666666667 

4.3 Zahlenumwandlung 


4.3.1 % - Binär in Dezimal 
Format: PRINT % Binärzahl 

ZIEL: Umwandlung einer Binärzahl in eine Dezimalzahl 

Der %-Befehl wandelt die angegebene Binärzahl in eine 
Dezimalzahl. Die Binärzahl muß 8 Ziffern lang sein und 
darf nur die Ziffern 0 und 1 beinhalten. Ist dies nicht 
der Fall, dann folgt die Fehlermeldung 

? NOT BINARY GHAR 

Beispiel: 

PRINT % 01011010 (RETURN) 

Anzeige: 90 

4.3.2 $ - Hexadezimal in Dezimal 
FORMAT: PRINT $ Hexadezimalzahl 

ZIEL: Umwandlung einer Hexadezimalzahl in eine Dezimalzahl 

Der $-Befehl wandelt die angegebene Hexadezimalzahl in eine 
Dezimalzahl. Die Hexadezimalzahl umfaßt 4 Ziffern, die aus den 
Werten 0 bis F (0-15) bestehen können. 

Werden diese Bedingungen nicht eingehalten, dann folgt die 
FehlermeIdung 

? NOT HEX GHARAGTER 

Beispiel: PRINT $ABGD (RETURN) 

Anzeige: 43981 
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4.4 


EXOR 


Format: EXOR (n,nl) 

Ziel: Eine exklusiv-Oder-Operation ausführen 

Der Befehl EXOR ermöglicht es, eine Exklusiv-Oder-Operation 

zwischen zwei Zahlen durchzuführen. 

Die angegebenen Zahlen werden in Binärzahlen umgewandelt und 
dann Bit für Bit verknüpft. Das Ergebnis wird in eine Dezimal¬ 
zahl umgewandelt. Die beiden Parameter n, nl können Werte 
zwischen 0 und 65535 annehmen. Es können auch Zahlen ver¬ 
schiedener Zahlensysteme verknüpft werden. 

Beispiel: 

100 REM t!*****************:»:**** 

110 REM BEISPIEL : 

120 REM EXOR... tt* 

130 REM ♦**:*:♦**♦. :*:f. **:**;♦♦ 

140 FOR X=0 TO 999 
150 : A=PEEK< 1024^-X ) 

160 ; IF ri=32 THEN 190 

170 : K=EXOR <A,X10000000) 

180 ! POKE 1024+X,K 

190 NEXT X 
200 END 


Ergebnis: Alle Zeichen auf dem Bildschirm werden invertiert 
dargestel1t. 

ABSCHNITT FÜNF 

Disketten-Befehle 

5.1 Einleitung 

SIMON's-BASIC bietet zwei Befehle zur Diskettenbehandlung. 
Dadurch wird der Zugriff auf Disketten wesentlich vereinfacht. 

5.2 DISK 

Format : DISK, “Anweisung" 

Ziel : öffnen des Diskettenkanals, Anweisung ausführen, 
Diskettenkanal schließen. 

Der Befehl DISK ersetzt folgende BASIC-Befehle: 

OPEN, logische Filenummer, Gerätenummer, Sekundäradresse: 

PRINT# logische Filenummer. 

Er öffnet einen Kanal zu einer Disketteneinheit, führt den 
angegebenen Befehl aus und schließt den Kanal wieder. 

Beispiel: 

Disketten neu formatieren (NEW) 

DISK “NO:SIMON‘s BASIC,Ol“ (RETURN) 

Ergebnis: Nach wenigen Minuten ist die Diskette neu formatiert. 
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5.3 


DIR 


Format : DIR"$ 

oder : DIR’$:String* 

oder : DIR'$:?String* 

Ziel : Listen der Directory oder eines Teils der Directory. 

Der DIR-Befehl ersetzt den Befehl LOAD '$*,8. Dabei hat man 
die Möglichkeit/ die gesamte Directory zu listen, oder nur 
bestimmte Filenamen. Jedes Fragezeichen steht für einen be¬ 
liebigen Buchstaben. Der Stern kürzt den String ab. 

Beispiel: 

DIR (RETURN) 

Ergebnis: Die gesamte Directory wird gelistet. 

Beispiel: 

DIR •$:??S* (RETURN) 

Ergebnis: Es werden alle Filenamen gelistet, deren 3. Buch¬ 
stabe ein S ist. 

ABSCHNITT SECHS 

GRAFIK Bit SIMON*s-BASIC 

6.1 Einführung 

Dieser Abschnitt beschreibt die Grafik-Befehle des SIMON's- 
BASIC. Der erste Teil schildert den Aufbau des Bildschirms 
und erklärt den Unterschied zwischen HIGH-RESOLUTION und 
MULTI-COLOUR. Dann werden die Farbmög1 ichkeiten des Commodore 
64 gezeigt, und beschrieben, wie die Farbe der Grafik be¬ 
stimmt wird. Der letzte Teil befaßt sich mit den Grafik- 
Befehlen und den Möglichkeiten, diese einzusetzen. 

6.2 Bildschirmaufbau 

Bei der Verwendung der Bildschirmgrafik wird der Bildschirm 
des Commodore 64 in eine Matrix von maximal 320x200 Punkten 
aufgeteilt. Jeder Punkt hat eine x- und y-Koord i nate. Die 
linke obere Ecke hat die Koordinaten 0,0. (x,y). Die High- 
Resolut ion-Graf ik teilt den Bildschirm in in eine Matrix von 
320 (x) und 200 (y) Punkten. Die Mu1ti-Colour-Grafik teilt 
ihn in 160x200 Punkte; der Abstand zweier Punkte in x-Richtung 
ist also doppelt so groß wie bei High-Reso1ution-Grafik. 
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6.3 


Commodore 64 Farben 


Der Commodore 64 bietet eine Auswahl von 16 verschiedenen 
Farben. In einer Matrix von 8x8 Punkten können bis /u drei 
verschiedene Farben gewählt werden, vleder Farbe ist eine 
Ziffer zugeordnet: 


0 

Schwa rz 

8 

Orange 

1 

Weiß 

9 

Braun 

2 

Rot 

10 

Hellrot 

3 

Türkis 

11 

Grau 1 

4 

Violett 

12 

Grau 2 

5 

Grün 

13 

Hellgrün 

6 

Blau 

14 

Hellblau 

7 

Gelb 

15 

Grau 3 


6.4 Zeichentyp 

Alle Zeichen-Befehle des S1MON’s-BASIC besitzen ein gemein¬ 
sames Merkmal : den Zeichentyp. 

Dieser Zeichentyp bestimmt, wie ein Punkt auf dem Bildschirm 
dargestellt wird. 

Die Bedeutung des Zeichentyps. 

a) HIGH RESOLUTION MODE 

Zeichentyp Funktion 

0 Löscht einen Punkt 

1 Zeichnet einen Punkt 

2 Invertiert einen Punkt (ist ein Punkt 
da, so wird er gelöscht und umgekehrt) 

b) MULTI-COLOUR MODE 

Zeichentyp Funktion 

0 Löscht einen Punkt 

1 Zeichnet einen Punkt in Farbe l(MULfI/l()W COI ) 

2 dto. 2 

3 dto. 3 

4 Invertiert einen Punkt 

Ein Punkt der Hintergrundfarbe wird in Far'be 3 
dargeste11t. 

Ein Punkt der Farbe 1 wird in f art)e 2 cJarcjest. 
dto. 2 1 

dto. 3wirdin II i ntergrundf arbe 

dargestel It. 

6.5 GRAFIK-BEFEHLE 

6.5.1 HIRES 

Format : HIRES zf, hg 

Ziel : Bestimmen der Zeichen- und Hintergrundfarbe. 

Der HIRES-Befehl schaltet den Bildschirm auf hochauflösende Gra¬ 
fik. Jeder Punkt des Bildschirmes kann nun einzeln gesetzt wer¬ 
den (320x200 Bildschirm-Matrix). Der Parameter zf bestimmt die 
Farbe, in der ein Punkt gesetzt wird. Der Parameter hg bestimmt 
die Farbe des Hintergrundes in der ein Punkt gesetzt wird. 
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13e i spi e 1: 

100 HIRES 0,1 
1000 GOTO 1000 

Ergebnis: Die Earbe der Punkte ist schwarz, der Hintergrund 
weiß. 

6.5.2 REG 

Format : REG x,y,xl,yl,Zeichentyp 
Ziel : Ein Rechteck zeichnen 

Der REC-Befehl zeichet ein Rechteck auf den Bildschirm. Die 
beiden ersten Parameter x und y bestimmen die Koordinaten 
der linken oberen Ecke des Rechtecks. Die Parameter xl und yl 
bestimmen die Seitenlangen des Rechtecks. 

Der Zeichentyp ist in Abschnitt 6.4. beschrieben. 

Beispiel: 


60 REM t. t. ♦♦♦♦*♦** 3<c ♦ * * 

70 REM BEISPIEL : ♦ ♦ 

80 REM RECHTECP-. MIT REC . 4: * 

100 HIRES £, 1 

120 FÜR X=5 TO 125 STEP 5 

140 : REC X , 1.3 HX , 320 -5/'2 tX ,120- 9 4:X/ 13,1 

160 NEXT X 
1000 GOTO 1000 


Anmerkung: Nach drücken der RUN/STOP-Taste wird der normale 
Bildschirm angezeigt. 


6.5.3 MULTI 

Format : HIRES zf,hg : MULTI cl,c2,c3 
Ziel : Den Mu1ti-Colour-Modus einschalten und drei 
Zeichenfarben bestimmen. 

Kommt nach dem HIRES-Befehl der Befehl MULTI, so wird die 
MULTI-COLOUR-GRAFIK eingeschaltet. 

Ein gezeichneter Punkt hat hier die doppelte Breite gegen¬ 
über einem Punkt in HIRES-Grafik (160x200 Bildschirm Grafik). 
Die Parameter cl bis c3 legen die drei Farbmög1ichkeiten 
(siehe Farbtabelle in Abschnitt 6.3) fest, die dann durch den 
Zeichentyp die Farbe eines Punktes bestimmen. 
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Beispiel : 


70 REM -'«■♦t BEISPIEL : ♦♦ + 

80 REM ♦♦♦ MUL IT-COLOUR-RECHTECK 

30 REM :f +• * +■ ♦ ♦ f +■ + f f + + ♦ * f ♦ ♦ f ♦ + + ♦ t + 

100 HI RES 1,11: MULTI 12, 8,6 

120 FÜR .X=--5 TO 60 STEP 1 

130 : F=F+ 1 

132 : IF F=5 THEN F=0 

1 40 J REC X , 1.9 *>•: , 1 60 -5.'^2 tX ,120- 9 f X/' 1 3 , F 
160 NEXT X 
1000 GOTO 1000 


6.5.4 LOW COL 

Format : LOW COL cl,c2,c3 
Ziel : Farbwechsel 

Der Befehl LOW COL ermöglicht es, 3 weitere Farben für 
Zeichenbefehl bereitzustellen. Die Parameter cl bis c3 
stimmen diese Farben, entsprechend dem Befehl MULTI. 

ACHTUNG : Es müssen immer alle drei Parameter angegeben 
werden, auch in HIRES-Grafik. 


Beispiel : 


60 REM 
70 REM BEISPIEL 


80 REM LOW-COLOLIR-RECHTECK ♦t. 

90 REM t jf t 1 4c 1-f t t :t. :f )t( :4t :f. :f 4( 4( 4( .f. ;f ifc :4: 

100 HIRES 0,2: MULTI 3,4, 9 

120 FÜR X=5 TO 53 STEP 1 

130 : F=F+1 

131 : LOW COL F,F-»-2,F+4 

132 : IF F=5 THEN F=0 

140 : REC X+ X* 1.5 ,X+24cX , 120-2.0+X , 190-3. StX ,F 
160 NEXT X 
1000 GOTO 1000 


e i nen 
be- 
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6.5.5 HI CÜL 


Format : HI CÜL 

Ziel : Zurückholen der unter MULTI festgelegten Farben. 

Nach dem HI COL-Hefehl können die unter MULTI festgelegten 
Farben wieder verwendet werden (in Verbindung mit dem Zeichen- 
typ) . 

Beispiel : 


1 00 REt') 4: t f 4: 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 

110 REM 444 BEISPIEL : 444 

1B0 REM 4 4 4 LÜLJ-COL, HI-COL 4 44 

130 P E M 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 

140 Z -- 5 

100 HIRES MULTI 10.6,8 

160 REPEmT 

170 : FÜR TÜ 3 

130 : REC Z ,Z ,Z 

180 ! Z--Z+31 

800 : LÜU CÜL 1,12,0 

2 10 : REC Z,Z,Z,Z,.^^ 

220 J Z=Z-2 1 

230 : HI CÜL 

24 0 ; NE.XT 

250 : Z-Z-23 

2G0 ur-iriL Z>14 
2 70 GCnO 2 70 


6.5.6 PLO] 

lorinat : Pl.üT x ^ y / Ze ic hon typ 
Ziel : Linen Punkt zeichnen. 

Der Befehl PLü I zeichnet einen Punkt auf den Bildschirm. Die 
Parameter x und y gehen die Koordinaten des Punktes an. Der 
Zeichentyp ist in Abschnitt 6.4 beschrieben. 

B e i s [:> i e 1 : 

1 00 f^Ei'l 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 
120 REN 444 BEISPIEL : 444 

130 REM 444 PLOT... 444 

m 0 REM 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 
150 HIRES 0,1 

1G0 FÜR X-=0 TO 320 STEP 0.5 

170 : Y=1O0 4 S IN-; > 490 

180 : PLOT X,Y,1 

185 : PLOT X,100,1 

130 NEXT X 

1000 GOTO 1000 
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6.5.7 TEST 


Format : variable = TEST (x,y) 

Ziel : Die Lage eines Punktes bestimmen. 

Der Befehl TEST bestimmt die Lage eines Punktes auf dem Bild¬ 
schirm. Die Parameter x und y bestimmen die Bildschirm- 
Koordinaten des TEST-Punktes. Das Ergebnis in der Variablen 
ist 1, wenn an dieser Stelle ein Punkt sitzt. 

Im anderen Fall ist das Ergebnis gleich 0. 

Beispiel: Nullstellenbestimmung 


100 

120 

130 

140 

144 

145 
150 
160 

1 70 
130 
185 
190 
200 

2 10 
220 


REM 

REM ■■*■■¥■* BEISPIEL 
REM TEST. . . 

REN 
I = 1 


♦ ♦♦ 
♦ ♦♦ 


PR INT"fcJ" 

HIRES 0,1 

FÜR X=0 TO 320 STEP 0.5 


Y= 1 00 - COS< >=:./'33 > +90 
PLOT X,Y,1 
T = TEST < X, 100) 

IF T=1 THEN GOSUB 1000 
PLOT X,101,1 


PnUSE 2 


230 END 

1 000 REt’1 ;f ♦ ♦ ♦ ♦ 111 * ♦ * ♦ * * ♦ * ♦ t ♦ ♦: ♦ 

10 10 REM UNTERPROGRAMM 

1020 REt * + 1 1.1 ♦ *: 11 - * t. 11 +• + * ♦ ♦ ♦ ♦ ♦ ♦ ♦ ♦ f 

1040 FK I ) = INT( X > 

1050 IF N«: I)=N< I-l> THEN RETURN 
1060 PR INT’'NtJLLSTELLE BEI X = " ; NC I > 

1070 1=1+1 

1080 RETURN 


6.5.8 LINE 

Format : LINE x,y;xl,yl,Zeichentyp 
Ziel : Eine Linie zeichnen 

Der Befehl-LINE zeichnet eine Linie, x und y sind die Anfangs- 
Koordinaten, xl und yl die End-Koordinaten. 

Der Zeichentyp ist in Abschnitt 6.4 beschrieben. 
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Beispiel : 


100 
1 10 
1£0 
130 
140 
150 
160 
170 


300 


REM 

REM *** BEISPIEL 
REM LINE... 




REM t * t ♦♦ t f ♦ + *♦**•♦♦** * 

HIRES 1,6 

FOR X=0 TO 3£0 STEP 8 


; M =100/320tX 
: LINE 320-X,M,X,100+M,1 
NEXT X 
GOTO 200 


6.5.9 CIRCLE 

Format : CIRCLE xyy/xl,yl,Zeichentyp 
Ziel : Zeichnen einer Ellipse 

Mit dem Befehl CIRCLE ist es möglich, eine Ellipse zu zeichnen. 
Die Parameter x und y bestimmen die Mittelpunkt-Koordinaten, 
xl den Radius in x-Richtung, yl den Radius in y-Richtung. 

Der Zeichentyp ist in Abschnitt 6.4 beschrieben. 

ACHTUNG : 

Ein Kreis ist eine Sonderform der Ellipse. Damit ein Kreis 
entsteht, muß eine der Bedingungen erfüllt sein: 

HIRES-Grafik x-Radius = 1,15*y-Radius 

MULTI-Grafik x-Radius = 0,575*y-Rad ius 

Drucker x-Radius = y-Radius 

Beispiel : 


100 

REM ♦♦ir* 


f 4: ♦ ♦ 

f. * .f ♦ ♦ * t 

1 10 

REM 

BEISPIEL : 


*** 

120 

REM 

CIRCLE... 


* * * 

130 

REM •+. t. ;♦ :f. ♦ :f. ♦. :* * * ♦ :f •+ :f * +. :f * ♦•+*•+♦*** 

140 

HIRES 1, 

6 



150 

FOR Y=70 

TO 100 STEP 

3 


160 

: ^: = 1 . 1 5 

♦ Y 



170 

: CIRCLE 

160, Y,X 

, Y , 1 


130 

: CIRCLE 

160,200-Y,X 

,y. 1 


130 

: CIRCLE 

45+X,100,X 

, Y, 1 


200 

: CIRCLE 

275-X, 100 ,X 

, r, 1 


2 10 

NEXT Y 




£20 

GOTO 220 
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6.5.10 ARG 


Format : ARG x/y,sa,ea,i,xl,yl,Zeichentyp 
Ziel : Einen Bogen zeichnen 

Der ARC-Befehl ermöglicht es einen Bogen zu zeichnen. Die 
Parameter haben folgende Funktion: 


x^y = Mittelpunkt der Ellipse (Kreis) von der ein Bogen 
gezeichnet werden soll. 

sa = Startwinkel 

- 30 ^ 

se = Endwinkel 


Abstand der Winkel, die berechnet werden 


Startwinkel + i = nächster Punkt, der berechnet wird. 
Diese beiden Punkte werden linear verbunden. 


xl = x-Radius der Figur, von der der 

yl = y-Radius Bogen gezeichnet werden soll. 

Der Zeichentyp ist in Abschnitt 6.4 beschrieben. 

Beispiel: 


110 REM ■*.*.* BEISPIEL : ♦* + 

1£0 REM *** ARC ... 

1 30 REM •+■ :f. ♦ * ♦ :f- * + +■ +• ■+ ♦ * ■+• ♦ ♦ *■ 

140 HI RES 1,0: MULTI 6,1,1 

160 REM + * KREISE ZEICHNEN f** 

180 FOR X= 8 TO 64 STEP 8 
180 : CIRCLE 80,100 , X , 100,3 

800 NEXT X 

£10 CIRCLE 80,100,7£ , 100,1 

£30 REM ZWEI LINIEN t-**- 

£40 REM + ♦ + ;f- + ♦ ♦ * *■ * * +• + ♦ +• * * * * * * * ♦ + ♦ * *■ *■ * +• 
£50 LINE 80,0, 80,£00,3 
£60 LINE 10,100,150,100,1 

£70 REM !♦: :f *: ♦ * * * + + *■ * *■ -f * * t + +■ f f ♦ f :f f + ♦ + ♦ +• ♦ 

£80 REM VIER BOEGEN +♦ + 

£30 REM + t t ■*. ♦: ♦ 1 * * * t t t- ♦ * ♦ ♦ 1 1- ♦ ♦ *■ 

300 ARC 30,0,15£,£07, 1 , 100,30,1 
3 10 ARC 80,£00,333,£8,1 , 100,30,1 
3£0 ARC 80,0,14£,£17, 1 , 100,60,1 
330 ARC 80 ,£00,3£3,33,1 , 100,60,1 
400 GOTO 400 
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Beispiel 


Achteck-Pyramide 


110 REM f** BEISPIEL : ** 3 * 

120 REM fiCH TECK-PYRAMIDE t** 

140 HIRES 1,6 

150 FÜR X= 5 TÜ 100 STEP 2 

160 : ARC 40+X+.8 ,100,315, 30,45,X*1.2, X,1 

170 : ARG 40+X+.8 , 100,135,270,45,X * 1.2,X , 1 
180 NEXT X 

190 ARC 120,100,0,360,45,120,100,1 
200 GOTO 200 
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6.5.11 ANGL 


Format : ANGL x,y,Winkel xl,yl,Zeichentyp 
Ziel : Einen Radius einer Figur zeichnen 

Der ARC-Befehl ermöglicht es, einen Radius in eine Ellipse 
einzuzeichnen. Die Ellipse muß dafür nicht auf dem Bild¬ 
schirm vorhanden sein. 

Die Parameter haben folgende Funktion : 

x,y Mittelpunkt der gedachten Ellipse ist Startpunkt des 
Radius 

Winkel = Winkel, unter dem der Radius steht. 

xl, yl Halbachsen der Ellipse von der der Radius 
gezeichnet werden soll. 

Beispiel : 


100 RE♦ ♦ :f + :f. ♦ ♦ + :f :f. *■*■*■*■ :f 

110 REM BEISPIEL : ♦ ♦ :f 

120 REM * + .f RNGL . . . ♦ ♦ 

130 REM ■*■ ■■¥ + 1.1 +. :f. ♦ ;♦ :f. t ♦ :f t +■ f +■ ♦ ♦ +• +• t- ♦ ♦ + 

140 HIRES £ , 1 

150 FÜR X= 5 TO 358 STEP 3 

160 : nNGL E£0,125 .X ,X/1.4 ,X/'3.3,1 

170 MEXT X 

1000 GOTO 1000 
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6.5.12 PAINT 


Format : PAINT x,y,Ze ichentyp 

Ziel : Eine geschlossene Fläche mit einer Farbe ausfüllen. 

Der PAINT-Befehl füllt eine umschlossene Fläche mit einer Farbe 
aus. Die Farbe wird durch den Zeichentyp bestimmt. Die Para¬ 
meter X und y geben die Koordinaten eines Punktes innerhalb 
der zu färbenden Fläche an. Eine Fläche kann mehrmals mit einer 
Farbe gefüllt werden. 

Beispiel : 


100 
1 10 
120 
130 
140 
150 
160 
170 


REM ♦♦ t t. f: 

REM +♦+ BEISPIEL 
REM ttt PeiNT... 

R E M + ♦ + t ♦ ♦ t. ♦ ¥ f * ♦ :f. ♦ + t 
Hl RES 0,1: MULTI 5,4,6 
CIRCLE 80,100,43,73,3 
AN6L 80,100,120,48,78,1 
ANGL 30,100,160,43,73,1 


♦ ♦ t 

( ■+ ;f. ♦ •+. 


160 ANGL 80.100,220,48,78,1 
190 ANGL 30,100,330,48,78,1 
800 PAINT 30,35,1 
£10 PAINT 60,60,3 
£60 PAINT 30,120,2 
£30 LÜUJ CÜL 7,4,6 
£40 PAIhJT 80,110,1 
1000 GOTO 1000 


6.5.13 BLOCK 

Format : Block x,y,xl,yl,Zeichentyp 
Ziel : Ein ausgefülltes Rechteck. 

Zusätzlich zu der Möglichkeit, ein Rechteck zu zeichnen und 
dies mit einer Farbe zu füllen, kann mit dem Befehl BLOCK 
ein ausgefülltes Rechteck gezeichnet werden. Entscheidend 
ist dabei die Zeichengeschwindigkeit. 

Die Parameter x und y bestimmen die Koordinaten der linken 
oberen Ecke, xl begrenzt den Block in x-Richtung, yl in 
y-Richtung. 

Der Zeichentyp ist in Abschnitt 6.4 beschrieben. 
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Beispiel 


110 REM :f:ft BEISPIEL : + + + 

120 REM t;f:f BLOCK... ttt 

130 R E r- l ♦ + f + + + t ♦ f ♦ f f f ♦ + +• + + :f ♦ f t + f ♦ + f 

140 HI RES 2,2: MULTI 2,1,5 

150 »16 

160 REPEHT 

170 : FOR F=1 TO 3 

130 : DY-RND-; 1 ) + 140 

130 : BLOCK X,10+DY ,X+10,160,F 

200 : >:=X+8 

210 : NEXT F 

220 UNTIL XM20 

250 GOTO 250 
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6.5.14 DRAW 


Format 

Ziel 


DRAW 

DRAW 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 


"nnnn. . 

.9"/X y y,Ze i 

chentyp 




String 

variable ,x 

, y,Zeichen 

typ 



Figur zeichnen 




il ermög 

licht es, e 

ine belieb 

ige Fi 

gur 

zu ent- 

;se auf 

dem Bildsch 

irm zu ze i 

ebnen. 

Die 

F i gur 

ch wie 

das Zeichne 

n auf dem 

Papi er 

. Ma 

n gibt 

( n) an, 

in welche 

Richtung s 

ich de 

r "Zeichen- 

und ob 

er sichtbar 

zeichnet 

oder n 

icht 

, 

Ziffern 






ig einen 

Punkt nach 

rechts ( 

nicht 

sich 

tbar) 

dto 

. 

oben 


■ 


dto 

, 

unten 


■ 


dto 

, 

1 i nks 


■ 



dto. 
dto. 
dto. 
dto. 

Ende der Figur 


rechts 
oben 
unten 
1 i nks 


und einen Punkt setzen 


Die Ziffern werden in Anführungszeichen direkt angegeben oder 
vorher als String festgelegt. Die Parameter x und y geben die 
Startkoordinaten an. 

Der Zeichentyp ist in Abschnitt 6.4 beschrieben. 


Beispiel : 


100 REM t*t***.ir**.:*^****t***tft******** 
110 REM BEISPIEL : ♦ 

120 REM t** DRPiW. . .ROT. . . * 

130 REM f.n''**t** t ■*■*.*.*■***■*■¥*■* tt** 

140 HIRES £ , 1 

150 "555555555555555555555555555 " 

160 D-^= "888888838888838338838838888 " 
170 B$="655665666866363868888878878" 
180 "733778777577575575555565565" 

130 C;:^= ■‘378878878878878378873555555 " 
300 F^="5655655655655655655655659" 

£05 Ci^="55555555555555559" 

£10 L^ = D$ + E:^ + F^ 

330 R45 = A:t + B^ + C$^ + C 1-^ 

330 FÜR U=0 TO 7 STEP 3 
340 : ROT U,1 

£50 : DRAU Ri?, 160,100,1 

£60 : DRAU 160,10a,1 
370 : DRAU R:^, 160,100,0 

£80 : DRAU L^,160,100,0 

390 ^c:xT U 
300 GOTO 230 


♦ * 

♦ ♦ 
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6.5.15 ROT 


Format : ROT r,s 

Ziel : Eine Figur verdrehen und die Größe verändern. 


Der Befehl ROT ermöglicht es, eine Figur, die mit dem DRAW- 
Befehl entworfen wurde, um einen bestimmten Winkel zu drehen. 
Dieser Winkel wird durch den Parameter r bestimmt : 

r ! Rotationswinkel 


0 

1 

2 

3 

4 

5 

6 
7 


0 Grad 
45 Grad 
90 Grad 
135 Grad 
180 Grad 
225 Grad 
270 Grad 
315 Grad 


Er muß im Bereich von 0 bis 7 liegen. Der zweite Parameter be¬ 
stimmt die Größe der Figur; er kann zwischen 1 und 255 liegen. 


ACHTUNG: 

Die Größe der Figur hängt auch von der gewählten Grafik ab: 


HIRES 320x200 Punkte 
MULTI 160x200 Punkte 

Beispiel : siehe Abschnitt 6.5.14 (Beispiel DRAW) 
6.5.16 CSET 

Format : CSET n 

Ziel : Auswahl eines Zeichensatzes des Commodore 64 
oder zurückholen der letzten Grafik. 


Der CSET-Befehl ermöglicht es, den Zeichensatz des Commodore 64 
im Programm umzuschalten. 

CSET 0 - Großschrift / Grafik-Modus 
CSET 1 - Groß- / Kleinschrift-Modus 

Weiterhin kann mit diesem Befehl die zuletzt abgebildete Grafik 
nochmals dargestellt werden. 

CSET 2 - HIRES-Grafik 

CSET 2 : MULTI cl,c2,c3 - MULTI-Grafik 

Die Parameter cl - c3 bestimmen die neuen Farben. 
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Beispiel 


100 REM ♦****imtit)|t!f*i»t*icm****:<t*it**».!*♦.♦*♦* 
110 REN ♦♦♦BEISPIEL : ♦♦♦ 

120 REM ♦♦♦ CSET 0/1 ♦♦♦ 

140 PR INT "Li" 

150 PRINT AT< 12,14)"SIMON'S BASIC" 

160 CSET 1 .-PAUSE 1: CSET 0:PAUSE 1 
170 GOTO 140 


1 00 REl'l ♦ ♦ ♦ + ♦ ♦ ♦ ♦ ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ ♦ ♦ ♦ ♦ ♦ ♦ ♦ 

110 REM ♦♦♦ BEISPIEL : ♦♦♦ 

120 REM ♦+♦ CSET 0/2 ♦♦♦ 

1 30 REM ♦ ♦ ♦ ♦ ♦ ♦ ♦ ♦ ♦ ♦ + ♦ ♦ + f ♦ ♦ ♦ ♦♦♦♦♦♦ ♦ + ♦ ♦ ♦ ♦ 

140 HI RES 2,2: MULTI 2,1,5 

150 X=16 

160 REPEAT 

170 : FOR F=1 TO 3 

180 : DY=RND< 1>♦120 

130 : BLOCK X,20+DY , X 10,1 60 , F 

200 : X=X+8 

210 : NEXT F 

220 UNTIL XM20 

230 PAUSE 5: CSET 0 

240 PR I |sjT ". T TTF EINE TASTE DRUECKEN, DAMIT DIE 

250 PRINT-GRAFIK NOCHMAL ERSCHEINT." 

260 PRINT" MBE FUER ENDE !" 

270 GET ANT^ 

280 IF AN1:$="" THEN 270 
230 IF ANT:$="E" THEN END 
300 CSET 2: MLILTI 2,1,5 
3 10 GOTO 230 
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6.5.17 COLOUR 


FORMAT: COLOUR br,hg 

ZIEL: Bestimmen der Hintergrund- und Bildschirmrahmenfarbe. 

Der Befehl COLOUR ermöglicht es, die Hintergrundfarbe (hg) im 
normalauflösenden Fall und die Rahmenfarbe (br) ebenso bei hoch¬ 
auflösender Grafik zu bestimmen. Die Farben werden durch die ent¬ 
sprechende Ziffer (siehe Abschnitt 6.3) festgelegt. Die Rahmen 
färbe kann duch einen weiteren COLOUR-Befeh 1, die Hintergrundfarbe 
kann bei hochauflösender oder Multi-COLOUR-Grafik durch den HIRES- 
Befehl geändert werden. 

BEISPIEL: 

EINGABE: COLOUR 3,6 <RETURN> 

ANZEIGE: Ein türkiser Hintergrund mit blauem Rahmen. 


6.5.18 NRM 

FORMAT: NRM 

ZIEL: Schaltet vom Grafik-Bildschirm zum normal auflösenden 

Bildschirm zurück. 

Der Behl NRM löscht eine hochauflösende oder Multi-Colour-Grafik 

vom Bildschirm und kehrt zum normalen Zustand zurück. 

BEISPIEL: Nachdem die Grafik 5 Sekunden angezeigt wurde, kehrt 
das Programm zum Normalbildschirm zurück. 

EINGABE: 10 HIRES 0,1: MULTI 0,2,6 

30 REC 0,0,40,20,1 
40 REC 20,20,40,20,2 
50 REC 40,40,40,20,3 
60 PAUSE 5 
70 NRM 

RUN <RETURN> 

ANZEIGE: Drei Rechtecke werden für 5 Sekunden angezeigt. Danach 

erscheint der normale Bildschirm mit READY und einem 
blinkenden Cursor. 
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6.6 


TEXT IN EINER GRAFIK 


6.6.1 CHAR 

Format : CHAR x,y,BiIdschirmcode, Zeichentyp, Größe 
Ziel : Ein einzelnes Zeichen auf einen Grafik-Bildschirm 
bringen. 

Der CHAR-Befehl ermöglicht es, Zeichen auf einem Grafik- 
Bildschirm darzustellen. Die Parameter haben folgende Funktion 

x,y Koordinaten, die die linke obere Ecke des Zeichens 
positionieren. 

Bildschirmcode - Zeichen, das gePOKED wird. 

Zeichentyp - siehe Abschnitt 6.4 

Größe - Faktor, um den sich das Zeichen in VertikaIrichtung 
ausdehnt. 

Beispiel : 

Ergänzen des Programms CSET ü/2 
195 : CHAR x,150,x/8-1,F-1,1 

6.6.2 TEXT 

Format : TEXT x,y,"(CTRLa) String",Zeichentyp,Größe,Abstand 
oder : TEXT x,y,‘(CTRLb) String",Zeichentyp,Größe,Abstand 
Ziel : Eine Zeichenkette auf einen Grafik-Bildschirm bringen 

Der Befehl-Text ermöglicht es, Zeichenketten auf einem Grafik- 
Bildschirm darzustellen. Die Parameter haben folgende Funktion 

x,y Koordinaten, die die linke obere Ecke des String 
positionieren. 

Der nächste Parameter ist der String selbst oder eine Variable 
Das erste Zeichen bestimmt, ob der String im Groß- oder Klein¬ 
schrift-Modus dargestellt wird. 

(CTRL-a) - Großschrift = Invers A 

(CTRL-b) - Kleinschrift = Invers B 

Zeichentyp - siehe Abschnitt 6.4 

Größe- Faktor, um den sich der String in Vertikalrichtung 
ausdehnt. 

Abstand - bestimmt den Abstand zwischen den einzelnen Zeichen. 
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Beispiel: 

Ergänzen des Programms CSET 0/2: 

155TEXT5,5"(CTRLa)BEISPIEL TEXT",1;2,12 
156TEXT5,165," ( CTRLb)-OMMODORE 64",3,4,12 

(CTRLa)=Invers A 
(CTRLb)=Invers B 
=(SHIFT C) 

ABSCHNITT 7 
BILDSCHIRMSTEUERUNG 
7,1 Einführung 

Dieser Abschnitt beschäftigt sich mit der Programmierung 
des Bildschirms. SIMON's BASIC bietet Befehle zur Farb¬ 
steuerung, zum Füllen, Duplizieren sowie Verschieben von 
Bildschirmbereichen, Bildschirm-Rollen, Speichern und 
Drucken von Bildschirmdaten. 

7.2. FLASH 

Format: FLASH fl,speed 

Ziel: Blinken einer Bildschirmfarbe 

Der Befehl FLASH bewirkt einen dauernden Wechsel einer be¬ 
stimmten Farbe zwischen INVERS- und NORMALSCHRIFT. Der 
Parameter fl bestimmt die Farbe, speed die Geschwindigkeit. 
Speed kann Werte zwischen 0 und 255 annehmen. Die Einheit ist 
1/16 s. 

Der Befehl FLASH ist bei HIRES- oder MULTI COLOUR-GRAFIK un¬ 
wirksam. 

Beispiel: 


100 
l 10 
lc:0 
130 
140 
150 
160 
170 
180 
130 
S00 
£ 10 
8 15 
280 
2 ££ 
825 
230 


REM BEISPIEL : ♦♦♦ 

REM ttt FLASH tt* 

POKE 53280,8 ;P0KE53£81,S 

PRINT " JB" 


PR I r iT " + t ♦ ♦ ♦. * :f t. ♦ ♦ ♦ :f 

PRINT" ♦♦ BEISPIEL : 

PRINT" ft. FLASH 

P R I T'JT " :* t ♦ f 1111 ♦ 11111 ♦ :f 111 

FOR F=16 TO 1 STEP-1 
FLASH 7,F 
PAUSE 1 


♦ ♦ ♦ ;f ♦ it ♦ 

♦ ♦ 
f t 
t t 

♦ f . ♦ * * ♦ ♦ 1.1 

* + ♦ ;f +. ♦ :♦ t 


NEXT F 


OFF 
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7.3 


OFF 


Format: OFF 

OFF beendet den FLASH-Befeh 1. 

7.4 BFLASH 

Format: BFLASH speed,fl,f2 

Ziel: Farbwechsel des Bildschirmrahmens 

Der Befehl BFLASH bewirkt einen dauernden Far'bwechsel des 
Bildschirmrahmens. Die Parameter fl und f2 bestimmen die 
Farben. Der Parameter speed bestimmt die Geschwindigkeit 
des Farbwechsels (1-255). 

7.5 BFLASH 0 

Format: BFLASH 0 

Der Befehl BFLASH 0 beendet den Befehl BFLASH. 

7.6 FCHR 

Format: FCHRr,c,w,d,Code 

Ziel: Einen Bereich des Bildschirms mit einem Zeichen füllen. 

Der Befehl FCHR ermöglicht es, einen bestimmten Bereich des 
Bildschirms mit einem bestimmten Zeichen /u füllen. Die Para¬ 
meter r (0-24) und c (0-39) bestimmen die linke obere Lcke des 
Feldes, w die Anzahl der Spalten, d die Anzahl der Zeilen und 
Code ist der "POKE-Code" des gewünschten Zeichens. 

Beispiel: s. Abscnitt 7.7 (FCHR-FCOL) 

7.7 FCOL 

Format: FCOL r,c,w,d,Farbe 

Ziel: Die Zeichenfarbe in einem bestimmten Bereich bestimmen. 

Der Befehl FCOL legt die Zeichenfarbe eines bestimmten Bild¬ 
schirmbereiches fest. Die Parameter r,c,w,d ents()rechen den (^ara 
metern des Befehls FCHR (Abschnitt 7.6), der letzte Parameter be 
stimmt die Farbe. 
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Beispiel: 


10 0 RE t• I + f f + * * + + ♦ ♦ ♦ ♦ + t ♦ •+ ♦ 

110 REM :♦ + + BEISPIEL : ♦ + + 

1£0 REM t + t FCHR - FCOL +• 11 

130 REM * V t + ¥ ¥ ¥ ¥ ¥ ¥ ¥ ¥■ ¥ ¥■ ¥ ¥ ¥ ¥■ ¥ ¥■ ¥■ ¥ + ♦ * + +• ¥■ ¥ ¥ 

M0 POKE 53230,S:POKE 53231,8 
150 PR INT "kJ" 

160 FCHR 10,10,10,10,10 

170 FÜR ?<:=10 TO 15 STEP 5 

100 : FOR Y=10 TO 15 STEP 5 

130 : FCOL X,Y,5,5,F 

200 ; F=F+1 

210 ; NEYT Y 

220 i'JEXT X 


7.8 FILL 

Format: FILLr,c,w,d,Code,Farbe 

Ziel: Einen Bereich des Bildschirms mit einem bestimmten 

Zeichen in einer bestimmten Farbe füllen. 

Der Befehl FILL füllt einen Bereich des Bildschirms mit einem 
Zeichen in einer vorgegebenen Farbe. Die Parameter r;C,w,d,Code 
entsprechen den Parametern des Befehls FCHR (Abschnitt 7.6), 
Farbe bestimmt die Zeichenfarbe. 

Beispiel: 


100 RE r-i ♦ ¥■ ¥ ¥ ¥ ¥ ¥ ♦ + f ¥ ¥ ¥ ¥ ¥ ¥ ¥ ¥ ¥ ¥¥¥¥¥¥¥¥¥¥ ¥ t- 

110 REM ¥¥■¥ BEISPIEL : ¥¥¥ 

120 REM ♦♦♦FILL ♦♦♦ 

130 REM ♦♦♦♦♦♦ ♦ ♦ ♦ ♦. ♦ ♦ ♦ ♦ ♦ ♦ ♦ ♦ ♦ ♦ ♦ ♦ ♦ ♦ ♦ ♦ ♦ ♦ ♦ ♦ ♦ 
1T0 POKE 53280,1 :POKE 53231,1 

150 PRINT"J" 

170 FOR >>0 TO 15 

190 : FILL X ,2^.X ,5,5 ,X 

220 NEXT X 

230 GOTO 230 
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7.9 


MOVE 


Format: MOVEr,c,w,d,dr,de 

Ziel: Duplizieren eines Bildschirmbereiches. 

Der MOVE-Befehl dupliziert einen Bildschirmbereich. Die Para¬ 
meter r,c,w,d geben den Bereich an, der dupliziert werden soll, 
entsprechend Abschnitt 7.6. Die Parameter dr und de geben die 
absolute Position an, ab welcher der Bereich dupliziert wird. 

Beispiel: 


1 00 

PEM ♦♦ f++ 4 +4 ♦ 

+ t 4 4 t ♦ t 4 4 t 4 4 

4 4 4 4 4 4 4 4 4 4 

1 10 

REr’l BEISPIEL : 

4 4 f 

ISO 

REf'1 f+f f'lÜVE 


4 4 4 

1 30 


444444444t 


POLE 53630.1 

; POKE 5368 1 , 

1 

1Ü0 

PRIMT "J" 



160 

F ILL 0 ,0,5,5 . 

1,10 


1 70 

f'lÜVE 0,0,5,5, 

0,55 


1S’.0 

f 1ÜVE 0,0 , T- , 5 , 

13 , 0 


130 

f'lÜVE 0,0,5,5, 

13,35 


600 

60 71:1 600 




7.10 INV 

Format: INVr,c,w,d 

Ziel: Einen Bildschirmbereich invertieren 

Der Befehl INV invertiert alle Zeichen in einem bestimmten Bild¬ 
schirmbereich. Die Parameter' r,c,w,d entsprechen den Parametern 
im Abschnitt 7.6 
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Beispiel: 


1 00 
1 10 
iE:0 
1 30 
M0 
150 
160 
l 70 
180 
130 
£00 
£ 10 
£15 
££0 
£30 


7.11 BiIdschirmrollen 

Format: Richtung W,sr,sc,er,ec 
oder Richtung B/sr,sc,er,ec 

Ziel: Rollen eines bestimmten Bildschirmbereichs 

SIMON's-BASIC bietet die Möglichkeit, bestimmte BiIdschirmbe- 
f'eiche in vier verschiedene Richtungen zu rollen. 

Der erste Parameter bestimmt die Richtung des Bildschirmrollen 
- LEFT, RIGHT, UP, DOWN. Der zweite Paramter kann entweder W 
oder B sein: 

W Zyklisches Bildschirmrollen 
d.h. es geht keine Zeile verloren 

B Bildschirmrollen ohne Bildumlauf 

d.h. es werden Leerzeilen bzw. -spalten nachgeschoben. 

Die Parameter sr,sc,er,ec bestimmen den Bildschirmausschnitt, 
der gerol It wird: 

sr/sc - erste Zeile/Spalte 
er/ec - letzte Spalte/Zeile 


R E: r-'l f t + f t f ;f :f ;f ;f + :f t f f f ♦ :f + ♦ + t ♦ f + * f + ♦ t 
REN BEISPIEL : * ♦ ♦ 

REM INV tt* 

REM + ¥ t. ♦ + + +. ■¥ ¥ ¥ ■¥ ¥ ¥ ¥ ¥ ¥ ¥ ¥ ¥ ¥ ¥ ¥ ¥ ¥¥¥¥¥¥ * * 
P0P;E 53£8e.,8 :P0KE53£31,3 

PR INT "KJa" 

P R I r JT " ¥ ¥ ¥ ¥ ¥ ¥ ¥ ¥ ¥ f ¥ ¥ ¥ ¥ ¥ + ¥ ¥ f ♦ ♦ ♦ ♦ ¥ ¥ ¥ ¥ ¥ 

P R I N T " + f * + + +. ¥ ¥ ¥ ¥ ¥ ¥ ¥ ¥ ♦ f ¥ ¥ ¥ ¥ ¥ f ♦ ¥ ¥ ¥ ¥ ¥ 

PRINT" ♦+ BEISPIEL : +* 

PRINT" INV ¥¥ 

F'R I f JT " + + +: ¥ ¥ ¥ ¥ ¥ ¥ ¥ + ♦ ♦ f ¥ ¥ ¥ ¥ ¥ ¥ ¥ ¥ 

P R I r-JT " ¥ ¥ ¥ ¥ ¥ ¥ f ¥ ¥¥¥ ¥ f ¥ ¥ ¥ ¥ ¥ f ¥ ¥ ¥ ¥ ¥ ¥ ¥ ¥ ¥ 

Pr-IUSE 3 
INV £,£,£6,4 
GOTO £30 
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Beispiel: 


100 REM + + + 

110 REM ’fOt BEISPIEL : ♦♦♦ 

1£0 REM ♦♦♦ B I LOSCH IRMRül.LEr^l ♦♦♦ 

130 REM ♦'♦'♦♦♦♦♦♦'♦♦♦'ft* ♦♦♦♦ 

140 PRIN1"J'' 

150 FÜR X-1 TO 33 

160 : 'i = INT'. 10 + S IhF >; .i ^ M L 

170 PR INTHT-, X , > ^ " 

1S0 ML^. T N 

1'30 LEFllJ 0.0,7)0.25 : R 1 GH TIJ 0.20.20.25 

200 GÜIÜ 190 


7.12 Abspeichern und Laden von Bildschirmdaten 
7.12.1 SCKS\ 

tornicit : SCKS\ 2,8,2 , * Niime , s , w' 
odei' Sl'K8\ 1 , 1 , 1 ; " N.i me , s, w " 

Ziel: Ahsfie i e he f'n eines l ÜW-KI SDI 111 I i)\-B i 1 d sefi i r'ms 

Der Befelil SOKS\ ermö«) 1 i c h t. es, B i 1 d seh i r'mdn l.en dir'ekl. auf 
Diskette oder' Kassette ah/u spe i c fuM'n. 

Die zv\eite Ziffer hintei' dem BefeiiJ (jilit die (Mit.sfir(behende Be- 
rätenummei' an. Der Name bestimmt, den f ilenaiiuMi, unter' dem der' 

B i 1 d sch i rm i ntia 11 aheje sfie i e he r t wir'd und unter dem die Daten mit 
dem Bef etil S('KLD (s. Abschnitt. 7.12.2) wieder' ye laden wer'den kön¬ 
nen. Mit diesem Befehl können keine HlKfS- oder' MDI II-C.'()l()IJK- 
Grafiken ahyespe icher't. er'den. 

Beispiel: 


iOÜ 

REM t 

♦'♦ + + 4 + 

4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 

1 10 

REM ♦ 

4+ BEISPIEL 

: 4 4 4 

120 

REf’1 4 

4 4 S C R r 

4 4 4 

1 30 

REN ♦ 

4 4 4 4 4 4 4 4 4 4 4 

4 4 4 * 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 

1 4 0 

PR Irn 

" J" 


1 50 

F ILL 

6.10,20,4. 

16 0,2 

1 6 0 

F ILL 

10.10,20.4, 

160,1 

1 *'0 

F ILL 

1 J . 1 0 .2 0 ,4 , 

160,6 

1 30 

FSV 

2.8,2 , ’ SCR 

SV -DEMO . S , M" 

1 30 

'3'3 TG 

130 
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7.12.2 SCRLD 


Format: SCRLD 2,8,2,"Name" 
oder SCRLD 1,1,1,"Name" 

Ziel: Laden eines LOW-RESOLUTION-BiIdschirms 

Mit diesem Befehl können Bildschirmdaten, die mit dem Befehl 
SCRSV gespeichert wurden, wieder direkt geladen werden. Die 
Parameter sind entsprechend dem Befehl SCRSV anzugeben. 

Beispiel: 

Um den Bildschirminhalt des Beispiels SCRSV noch einmal dar¬ 
zustellen: 


100 REM + 

110 REM BEISPIEL : 

130 REM SCRLD 

130 REM t**t-t^*-¥***.t*^ ******* t***r^t***t 
140 SCRLD 2,8,3,"SCRSV-DEMO" 

150 GOTO 150 


7.13 Ausdruck von Bildschirmdaten 

7.13.1 COPY 
Format: COPY 

Der Befehl COPY führt eine Hardcopy einer HI-RES- oder MULTI- 
COLOUR-Grafik aus. Um auf einem Drucker genau einen Kreis zu 
bekommen, müssen der x und y-Radius des Befehls CIRCLE gleich 
sein. 

7.13.2 HRDCPY 
Format: HRDCPY 

Dieser Befehi führt eine Hardcopy eines LOW-RESOLUTION-BiId- 
schirms aus. Man hat die Möglichkeit, Daten auf dem Bildschirm 
auszugeben und dann mit einem Befehl auf dem Drucker. 

7.14 BCKGNDS 

FORMAT: BCKGNDS bf,h1.h2,h3 

ZIEL: Betimmen der Hintergrundfarbe eines Zeichens. 

Jedes Zeichen auf dem Bildschirm besteht aus 8x8 Punkten. 

Die Hintergrundfarbe dieses Quadrates entspricht normalerweise 
der Farbe des Bildschirms (ausgenommen bei reverser Darstellung). 
Der Befehl BCKGNDS bestimmt die Hintergrundfarbe eines Zeichens 
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in normaler und reverser Schrift. Beachten Sie, daß dies nur für 
solche Zeichen möglich ist, die sich oben auf der Taste befinden. 
Grafik-Zeichen können nicht benutzt werden. 


Der Parameter bf des "BCKGNDS"-Befeh1s legt die Bildschirmfarbe 
fest. Die nächsten drei Parameter bestimmen die Hintergrundfarbe 
eines "geshifteten" Zeichens, eines "ungeshifteten" Zeichens in 
reverser Darstellung und eines "geshifteten" Zeichens in reverser 
Darstel1ung. 


BEISPIEL: 


3 verschiedene Hintergrundfarben der Zeichen (die 
unterstrichenen Zeichen sind mit gedrückter SHIFT- 
Taste zu schreiben): 


EINGABE: 


10 PRINT"<SHIFT CLR/H0ME>" 

20 BCKGNDS 1,3.5,7 

30 PRINT"THIS IS AN EXAMPLE": PRINT 

40 PRINT"<CTRL RVS 0N> OF THE SIMON'S BASIC": PRINT 

50 PRINT"<CTRL RVS 0N> BCKGNDS COMMOAND" : PRINT 


RUN <RETURN> 

ANZEIGE: 3 Zeilen Text mit türkisem, grünem und gelbem Hinter¬ 

grund . 


ABSCHNITT ACHT 


SPRITE UND GRAFIK 
8.1 Einführung 

SIMON'8-BASIC bietet zwei grafische Besonderheiten. Zum Einen 
wird ermöglicht, einen anderen Zeichensatz zu erstellen 
und die Tasten des Commodore 64 anders zu belegen. 


Jedes Zeichen wird dabei in einer 8x8 Matrix dargestellt. 

(s. Abschnitt 8.3). 

Die zweite Besonderheit ist die Möglichkeit., 'SPRITES' zu 
erstellen und diese in Bewegung zu versetzen (s. CBM-Handbuch 
Seite 67). Dies geschieht jedoch beim Standard-BASIC durch viele 
POKE-Befehle. Bei SIMON's-BASIC werden diese POKE's durch ein¬ 
fach zu handhabende BASIC-Befehle ersetzt. 

Ein SPRITE wird in SIMON's-BASIC 'moveable object block' oder 
MOB genannt. Es können bis zu acht unabhängige MOB's gleich¬ 
zeitig dargestellt werden. 

Zwei Arten von MOB's sind möglich: 

High-Resolution: 24x21 Matrix, einfarbig 
Multi-Colour: 12x21 Matrix, bis zu drei Farben 

Sie können auf dem normalen Bildschirm oder im Grafik-Modus 
dargestellt werden. 
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8.2 


Gestalten eines MOB's 


8.2.1 DESIGN 

Format: DESIGN c,ad 
oder DESIGN c,sa + gc 

Ziel: Zuteilung von Speicherplatz für einen MOB 

Der DESIGN-Befehl reserviert den benötigten Speicherplatz im 
Speicher des CBM 64 für einen MOB/ der konstruiert weden soll. 

Der erste Parameter c gibt an, ob der MOB ein high-resolution (0) 
oder multi colour (1) MOB ist. 

Der zweite Parameter ad definiert die Start-Adresse im Speicher 
des Computers. Diese Start-Adresse errechnet sich aus einer 
Block-Nummer multipliziert mit 64, da jeder MOB 64 Byte Speicher¬ 
platz benötigt. 


Block-Nummer Speicherplatz 


13 - 

15 

832 - 

1023 

32 - 

63 

2048 - 

4095 

128 - 

255 

8192 - 

16383 


Wenn ein MOB auf einem high-resolution Bildschirm dargestellt 
werden soll, so muß zu der Startadresse ein konstanter Wert von 
49152 ($C000) addiert werden. 

Wird im Programm der Befehl MEM (s. Abschnitt 8.3.1) verwendet, 
so können nur Block 192 bis 255 für MOB’s benutzt weden. 

Achtung: 

Es können so viele MOB's erstellt werden, wie freier Speicher¬ 
platz im CBM 64 zur Verfügung steht. Auf dem Bildschirm können 
jedoch nur 8 MOB's gleichzeitig dargestellt werden. Es ist mög¬ 
lich, in einem Programm einen MOB durch einen anderen zu er¬ 
setzen, in dem man unter der gleichen Startadresse einen neuen 
MOB entwirft. 

Beispiel: 

Speicherplatz bereitstellen für einen High-Resolution MOB auf 
einem normalen Bildschirm. 

100 DESIGN 0,832 

Ergebnis: 

Der MOB wird in Block 13 (13x64=832) gespeichert. 

Siehe auch Abschnitt 8.2.7 

8.2.2 @ (Klammeraffe) 

Format: ^ . 

& . 

Ziel : Die Form eines MOB’s eingeben. 

Ein MOB besteht, wie bereits gesagt, entweder aus einer Matrix 
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von 24x21 (High Resolution) oder 12x21 (Multi Colour) Punkten. 
Der Befehl (? bietet eine sehr einfache Möglichkeit, einen MOB 
zu gestalten. 

Jeder MOB besteht aus 21 BASIC-Zeilen mit dem Formate? ...., 
wobei jede Zeile aus einem ^-Zeichen und 24 (High Resolution) 
bzw. 12 (Multi Colour) Punkten besteht. Jeder Punkt stellt da¬ 
bei einen Punkt der Matrix eines MOB's in der Farbe des Bild¬ 
schirm-Hintergrunds dar. Ersetzt man diesen Punkt durch einen 
bestimmten Buchstaben, so ändert sich die Farbe dieses Punktes 
in der Matrix. 


High Resolution MOB’s 
Buchstabe: Farbe: 

B = Farbe, die im Befehl MOB SET angegeben 

ist. 

Multi Colour MOB's 


Buchsta be: 


Farbe: 


B = Farbe 1 (cl), die im Befehl CMOB angegben ist. 

C = Farbe, die im Befehl MOB SET angegeben ist. 

D = Farbe 2 (c2), die im Befehl CMOB angegeben ist. 


Beispiel: siehe 8.2.7 


8.2.3 CMOB 


Format: CMOB cl, c2 

Ziel: Festlegen der Farben für multi-colour MOB‘s 

Der CMOB-Befehl legt die beiden zusätzlichen Farben für alle 
Multi-Colour MOB's fest. Die Parameter cl und c2 können Werte 
zwischen 0 und 15 annehmen und entsprechen den Farben der Ta¬ 
belle aus Abschnitt 6. 

Alle Punkte der Matrix, die durch den Buchstaben B dargestellt 
werden, nehmen die Farbe entsprechend dem Parameter cl an; die 
Punkte, die durch ein D dargestellt werden, entsprechend dem 
Parameter c2. 
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8.2.4 MOB SET 


Format: MOB SET mb,bIk,col,pr,res 

Ziel: Festlegen, wie der MOB aufgebaut ist. 

Der Befehl MOB SET legt bestimmte Eigenschaften fest, die 
einen MOB bestimmen. 

mb : Nummer des MOB's, kann Werte von 0 bis 7 annehmen. Wenn 

mehrere MOB’s auf dem Bildschirm sind, bewegt sich der MOB 
mit der niedrigeren Nummer vor dem MOB mit der höheren Num¬ 
mer. 

blk: legt fest, aus welchem Block die Daten für den MOB entnommen 
werden sollen (s. Abschnitt 8.2.1). 

col: legt die Farbe für den betreffenden MOB fest. Der Parameter 
kann entsprechend einer Farbe Werte zwischen 0 und 15 an¬ 
nehmen. 

Bedeutung bei High-Resolution MOB's: 

Punkte der Matrix, die mit einem B (s. Abschnittt 8.2.2) ge¬ 
kennzeichnet sind, werden mit der festgelegten Farbe aus- 
gefül1t. 

Bedeutung bei Multi-Colour MOB’s: 

Punkt der Matrix, die mit einem C (s. Abschnitt 8.2.2) ge¬ 
kennzeichnet sind, werden mit der festgelegten Farbe aus- 
gefülIt. 

pr : legt die Priorität des MOB fest 

pr= 0 : Der MOB bewegt sich vor den Bildschirmzeichen. 
pr= 1 : Der MOB bewegt sich hinter den Bildschirmzeichen. 

res: res= 0 high-resolution MOB 
res= 1 multi colour MOB 


Beispiel: 


3000 


MOB SET 0, 15, 8, 0, 1 


multi colour 
MOB vor Zeichen 
Orange 
Block 128 
MOB Nr. 0 


3010 M0& SET 1, 128, 9, 1, 0 

I I—high resolution 

'-MOB hinter Zeichen 

-Braun 

-Block 128 

-MOB Nr. 1 


siehe auch 8.2.7 


53 



8.2.5 MMOB 


Format: MMOB mn,xl,y1,x2,y2,exp , speed 

Ziel: Darstellen und/oder Bewegen eines MOB's 

Der Befehl MMOB bewirkt, daß ein MOB auf dem Bildschirm darge¬ 
stellt wird und ermöglicht eine Bewegung dieses MOB's 

mn : gibt die Nummer des MOB's an, der dargestellt werden soll 

xl,yl: Start Koordinaten, von denen aus sich der MOB bewegt, bzw. 
dargestellt wird 

x2,y2: Ziel-Koordinaten, auf die sich der MOB zubewegt 
exp : gibt die Größe des MOB an 
exp Größe 

0 normale Größe (24x21) 

1 X-Achse ist gedehnt: (48x21) Faktor 2 

2 y-Achse ist gedehnt: (24x42) Faktor 2 

3 X- u. y-Achse ist gedehnt: (48x42) jeweils Faktor 2 

Speed: Geschwindigkeit, mit der sich der MOB bewegt 
(1 bis 255) 

speed= 1: schnellste Geschwindigkeit 

speed= 255: langsamste Geschwindigkeit 

Beispiel: siehe Abschnitt 8.2.7 

8.2.6 RLOCMOB 

Format: RLOCMOB mn,x,y,exp,speed 
Ziel: Bewegen eines MOB's 

RLOCMOB bewegt einen auf dem Bildschirm dargestellten MOB zu 
einer anderen Position auf dem Bildschirm. Die Koordinaten 
x,y bestimmen die Zielposition. Alle anderen Parameter ent¬ 
sprechen den Parametern von Abschnitt 8.2.5. 

Beispiel: siehe Abschnitt 8.2.7 

8.2.7 MOB OFF 

Format: MOB OFF mn 

Ziel: Löschen eines MOB's vom Bildschirm 

Der Parameter mn gibt die Nummer des MOB’s an, der gelöscht wer¬ 
den sollen. 

Beispiel siehe Seite 51-53 
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9900 REM 1t **♦#*♦***♦***♦: 

99 10 REM ;f.*:f BEISPIEL: *:#;* 

9920 REM ♦♦♦ MOBS MIT SIMONS' BASIC H♦* 
9930 REM *1t:f + *1C 

99^0 REM ENTWURF EINES ♦ * 

9950 REM * H IGH-RESOLUT ION-MOB * * ■¥ 

9960 REM **■* IM BLOCK 13 Htt- 

9970 REM ♦ ♦ :♦ :f ♦♦♦*;♦♦* :f ♦ * :f :f * ;f * ;* t »• * ;f. ♦ ;* f. ♦ * ;f 
9980 PR INT"J" 

10000 DESIGN 0,13*64 

10010 e.B.B. 

10011 12.BB.BB. 

10012 (2.BB. .B. 

10013 ©.BBBBB. 

10014 ©.BBBB.BBB. 

10015 ©.BBBBB ... .B ... . 

10016 ©.BBBBB. 

10017 ©.BBBBBBBBBB. 

10018 ©.BBBBBBBB..BB. 

10019 ©....BBBBBBBBBB. 

10020 ©...BBBBBB..BB. 

10021 ©. .BB.BBBBBBB. 

10022 ©. .BB.BBBBBBBB. 

10023 ©.BB...BBBBBBB. 

10024 ©.BB.BBBBBB. 

10025 ©BB.BBBB. 

10026 ©BB.BBBB. 

10027 ©.BBB. 

10028 ©.BB. 

10029 ©.BBBBBBB. 

10030 ©.BBBBBBB. 

10035 REM ***************************** 

10036 REM *** ENTWURF EU'ES ♦** 

10037 REM *** HIGH-RESOLUTION-MOB *** 

10038 REM *** IN BLOCK 14 *** 

10039 REM ***************************** 

10040 DESIGN 0,14*64 


10050 ©.BB. 

1005 1 ©.BBBB . BBB . . . 

10052 ©.BBBBBBBB.. 

10053 ©.BBBB.BB. 

10054 ©.BBBBBBBBB 

10055 ©.BBBBBB. . . . 

10056 ©.BBBBBB. 

10057 ©.BBBBBBBBBBBBB. 

10053 ©.BBBBBBBBBBBBBBB 

10059 ©.BBBBBBBBBBBB. . .BB 

10060 ©.BBBBBBBBBBBBB. 

1006 1 ©.BBBBBBB . . BBBB. 

10062 ©.BBBBBBBBBB. BBB. 

10063 ©. . . .BBBBBBBBBBB.BBBB. . . . 

10064 ©....BBBBBBBBBB.BBBB. 

10065 ©...BBBB.BBBBBBBBBB. 

10066 ©. .BBBB. . .BBBBBBB. 

10067 ©BBBBB....BBBB. 

10068 ©BBB.BBBB . . . BBB. 

10069 ©.BBBBBBBBBBB. 

10070 ©.BBBBBBBBB. 
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100 75 REM :f t ;f f t- f t ♦ f. +. t :f * ♦ * f :f. + 

100 76 REM ++♦' EMTNURF EINES ♦♦ + 

10077 REM MULT I-COLOUR-MOB ♦ 

1007S REM ♦ + + IN BLOCK 15 * ♦ + 

10073 REM !f :f * * ^ :f :♦ ♦ ♦ t ♦ t ♦ * f i t f + f :f + f f * :f t *. 

10030 DESIGN l,15t64 


10090 

ro 

. . . .BB. 

1003 1 

•5 

.BBBBCCCB . . 

10092 

© 

BBBBCCCCCB. 

10033 

© 

BBBCCCCCCC. 

10094 

©BBBBCCCÜDCCB 

1Ü035 

©BBBBCCCDDCCB 

1 0096 

© 

BBBCCCCCCC. 

10037 

© 

BBBBCCCCCB. 

1 0098 

© 

.BBBBCCCB.. 

10039 

© 

D...BB...D. 

10 1 00 

© 


16 10 1 

© 

.0.D. . 

10 102 

© 


10 103 

© 

........... 

10 104 

© 


10 105 

© 

. . . D . . D . . . . 

10 106 

© 

...CCCC.... 

10 107 

© 

. . .CCCC .... 

10 108 

© , 

. . .CCCC .... 

10 109 

© 

..DCCCCD... 

10 110 

© 

..DDDDDD... 


1 1 390 REM ♦ ♦ + ♦ ■■¥ ♦ +. ♦ ■* ■■¥ ;f. ♦ ♦ .f * :f :f. * t * 

11931 REM MULTI-COLOUR-MOB NR.1 

1133E REM +*♦ EXPANSION IN Y-RICHT. *♦+• 

11333 REM BEWEG. OXO-300..'205 

1 1 33*4 REM •+. :f ♦ ♦ :f ♦ 1t ♦ « t ♦ +. -.f ;f * + ;*:»(•♦♦♦♦ ;* ;* + + + 

12000 CMOB 7,2 

12010 MOB SET 1,15, 8,0,1 

12020 MMOB 1, 0, 0,300,205,2,200 

1 2040 REM * ♦ ♦ ♦ ♦ ■.¥ ■■¥ ♦♦♦)♦(:*♦♦*♦* ;* :f. * :f if 

12041 REM :f + +. MULTI -COLOUR-MOB NR. 2 

12042 REM ♦♦♦ EXPANSION IN X U. Y ♦ K♦ 

1204 3 REM *♦)»: BEWEG. 200X200-300/50 
12044 REM ♦ ♦ ♦ t + ♦ * * + ♦ * *■*■*■*■■¥* ¥ ***■■¥ ■¥ 

12050 CMOB 0,14 

12060 MOB SET 2,15,6,1,1 

12070 MI40B 2,200,200,300,50,3,150 

12030 REM t^¥.¥t'¥*.¥ M * ■■¥ ** ■■¥ ■¥■■¥* ■■¥ ■¥* ■■¥* ■■¥ *** ■■¥ 

1209 1 REM MULTI-COLOUR-MOB NR . 7 * * * 

12032 REM ♦+♦ EXPANSION IN X-RICHT. *** 

12093 REM t.¥t BEWEG. 100/0-300/150 

12034 REM 

12100 CMOB 8,5 

12110 MOB SET 7,15,13,0,1 

12120 MMOB 7,100,0,300,150,1,100 

12125 REM 

12126 REM MULTI-COLOUR-MOB NR.6 *** 

12 127 REM KEINE EXPANSION :♦** 

12 128 REM BEIOEG. 10/150-300/175 **♦ 

12 129 REM ♦♦»♦♦»it***** ;♦♦♦:♦***♦*»♦♦***♦* 
12130 CMOB 3,4 

12140 MOB SET 6,15,0 ,1,1 

12150 MMOB 6,10,150,300,175,0,50 
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12 158 
12 159 
12 160 
MS90 
1 ‘^995 
1^4996 

14997 

14998 
15000 
15395 
15996 
1599 7 
15998 
16000 
19990 
1999 1 
19992 
1999 3 

19994 

19995 

c' 0 0 0 0 
206 10 
20020 
20022 
20023 
20030 
20040 
20045 
20650 
20060 
20090 
2009 1 
20092 
20 1 00 
20 1 1 0 
20 1 20 
20 130 
20 140 
20 1 50 
20 160 


REM .*t» NEUE FARBE tit 

CMOB 7,2 
PRIMT"J 

REM + 11 ♦ ♦ t ♦ t ♦♦♦♦♦♦ ♦ ♦ ♦ + t f 4 ♦ t + ♦ t .* f ♦ 
REM H I GH-RES . "MOB NR . 5 ♦ ♦ f 

REM AUS BLOCK 14 

REM t f t ♦ :f :f f f ♦ ♦ :f ♦ ♦ + f t ♦ f ♦ ♦ t t t f 

MOB SET 5,14,6,0,0 

REM ♦ ;f + + f t + :f: t ♦ f ♦ f i f ♦ f * ♦ f » ♦ f ♦ + f * * f 
REM ++f HIGH-RES.■MOB NR 4 i+4 

REM ♦ + + AUS BLOCK 13 ♦ ;f ;f 

REM ♦ t ♦ f 4 f t t + 4 ♦ ♦ ♦ 4 4 4 4 > 4 4 4 4 4 4 4 4 4 4 

MOB SET 4,13,9,5,0 

REM 4 4 4 4 4 4 4 . 4 4 4 4 4 4 4 4 4 4 44 4 4 4 4 4 4 4 4 4 4 


REM 444 GLEICHZEITIGE GEUJEGUNG 4 
REM 444 VOM MOB 4 UND 5. 4 

REM 444 EXPANSION VON MOB 5 Hl t 

REM 4 4 4 ?■: - U . - R I C H TUNG . 4 

R E !• 1 4 4 4 4 4 4 4 4: 4 4 4 4 4 4 4 4 f 4 4 4 4 4 4 4 4 4 4 4 4 

lr ' = 1 5 0 J Z = 5 0 

FÜR X=30 TO 230 STEP *4 
Y = Y-2:Z =Z +2 
IF Y<60 TUEN Y=60 
IF Z >140 TUEN 2 = 140 
FÜR DY=1 TO 10 
RLOCMOB 5,X,Y+DY44,3,0 
RLOCMOB 4,X,Z+DY42,0,1 
NEXT DY 
NEXT X 

REM 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4: 4: 4 4 4 4 4 4 4 4 f 4 
REM 444 MOB LOESCHEN 444 

R E M 4 4 4 4 4 4 4 4: f 4 4 4 4 4 4 4 4 f 4 4 4 4 4 4 4 4 4 4 4 


PR IMT",J''10B LOESCHEN J ODER N>? 
FETCH ■■ JN" , 1 , ANT$ 

IF ANT^^=’-N'■ THEN 20 160 

FÜR L=0 TO 7 

: MOB OFF L 

NEXT L 

END 
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8.2.8 DETECT 


Format: DETECT n 

Ziel: Abfrage der MOB-Kol1ision vorbereiten 

Der DETECT-Befehl muß vor dem Befehl CHECK im Programm kommen. 

Ist der Parameter n=0; so wird die Abfrage auf eine Kollision 
zwischen zwei MOB's vorbereitet. Ist n=l; so wird die Kollision 
zwischen Zeichen auf dem Bildschirm und einem MOB vorbereitet. 

Der Befehl DETECT muß zweimal gegeben werden. Bei der ersten Aus¬ 
führung wird das SPRITE-KOLLISIONS-REGISTER gelöscht; bei der 
zweiten Ausführung ist das Register bereit, eine Kollision zu 
registrieren. 

8.2.9 CHECK 

FORMAT: IF CHECK(mn1, mn2)=0 THEN Anweisung 
oder: IF CHECK(0)=0 THEN Anweisung 

Ziel: Abfrage auf MOB-Kol1ision 

Der Befehl CHECK fragt ab, ob eine Kollision stattgefunden hat. 
Die Parameter mnl und mn2 geben an, zwischen welchen beiden MOB's 
die Abfrage gemacht werden soll. Steht in den Klammern eine "0", 
dann wird abgefragt, ob ein MOB mit einem Bildschirmzeichen 
kollidiert ist. Hat eine Kollision stattgefunden, so wird die An¬ 
weisung hinter THEN ausgeführt. 

Beispiel: 

Einfügen in "MOB's mit SIMON's-BASIC": 

20047 DETECT 0 : DETECT 0 

20048 IF CHECK(4,5)=0 THEN END 

8.3 Erstellen eines neuen Zeichensatzes 
8.3.1 MEM 

Format: MEM 

Ziel: Verlegen des Zeichensatzes vom ROM- in den RAM-Bereich 

Der Zeichensatz des Commodore 64 ist in einem ROM festgelegt. Um 
diesen Zeichensatz neu zu definieren oder zu verändern, muß 
man ihn in den RAM-Bereich legen. 

Der Befehl MEM führt folgende Funktionen aus: 

- Verschieben des Zeichensatz-ROM-InhaIts in den RAM-Bereich 
hinter KERNAL 

- Verschieben des Bildschirm-RAM nach $ CCOO 

- Eingrenzen des MOB-Bereiches auf Block 192-255 (8.2.1) 
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8.3.2 DESIGN 


Format: DESIGN 2, $E000 + ch x 8 

Ziel: Festlegen, welches Zeichen von dem neu erstellten 

Zeichen ersetzt wird. 

Der DESIGN-Befehl legt fest, welches Zeichen durch ein neu 
definiertes Zeichen ersetzt wird. Der Parameter ch muß dabei 
den POKE-Code des zu ersetzenden Zeichens annehmen (s. Hand¬ 
buch Seite 133/134). Das neu definierte Zeichen besteht aus 
einer Matrix von 8x8 Punkten. Wie die Matrix festgelegt wird, 
ist im folgenden Abschnitt erklärt. 

8.3.3 @ (Klammeraffe) 

Format: @ . 

Der Befehl @ ermöglicht die einfache Gestaltung eines neuen 
Zeichens. Nach dem (9 -Zeichen setzt man 8 Punkte. Da ein Zeichen 
aus einer Matrix von 8x8 Punkten besteht, sind 8 BASIC-Zeilen 
des Befehls @ ... nötig,, um ein neues Zeichen zu definieren. 

Jeder Punkt entspricht dabei einem Punkt der Matrix in der 
Bildschirm-Hintergrundfarbe. Soll ein Punkt der Matrix die 
Farbe des Cursors annehmen, so muß der Punkt durch ein B er¬ 
setzt werden. 

Beispiel: 


! 0e REM ♦ t. * ♦ ♦ ♦ :f * + t *■ ♦ * ♦ 11 :f. * % 
110 REM ■*■*.* BEISPIEL: 

1 £0 REM ♦ ♦ 3f. NEUES 2 E I CHEN ♦ * t- 
130 REM » :t ♦ ;f ♦ ♦ ;f. :4r ♦ + 


150 

170 

130 

£00 

£10 


MEM 

REM ++♦: POKE-CODE 
DESIGN £,^E000 
15 . BBBBBE . 

15 .BB . . .B 


£^0 15 . . BB . . . 
£30 15 . . . BB . . 
£-40 15 . . BB . . . 
£50 ©.BB...B 
£b0 e.BBBBBB 
£70 ©. 


0 eENDERN ♦♦♦ 
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Um wieder in den Originalzeichensatz zu gelangen, muß die 
RESTORE -Taste zusammen mit der RUN/STOP -Taste gedrückt 
werden. 

ABSCHNITT NEUN 

STRUKTURIERTE PROGRAMMIERUNG 

9.1 EINFÜHRUNG 

Ein großes Problem beim Programmieren im Standard-BASIC ist das 
Fehlen eines strukturierten Verlaufs bei komplexeren Programmen. 
Die Befehle GOTO und GOSUB machen die Programm1istings unüber¬ 
sichtlich und unverständlich. Etwas Abhilfe schaffen da Kommen¬ 
tarzeilen (s. REMark-Befeh 1), in denen die einzelnen Routinen 
erklärt weden. 

SIMON's-BASIC beseitigt diese Probleme mit der Schaffung be¬ 
stimmter Befehle zur strukturierten Programmierung. Diese Be¬ 
fehle verhindern den Gebrauch von GOTO und GOSUB weitgehend. 

9.2 Bedingungen Prüfen und Progranmschleifen 
9.2.1 IF... THEN...ELSE 

Format: IF Bedingung THEN Anweisung für wahr: ELSE: Anweisung 
für unwahr 

Ziel: Auf eine Bedingung prüfen und je nach 'wahr" und "un¬ 

wahr" eine Anweisung ausführen. 

Dieser Befehl ist im Prinzip mit dem Befehl IF... THEN... ver¬ 
gleichbar. Der Unterschied besteht darin, daß man zusätzlich die 
Möglichkeit hat, eine Anweisung zu geben, die ausgeführt wird, 
wenn die Bedingung nicht erfüllt ist. 

Achtung: 

ELSE muß durch Doppelpunkte (:) vom vorhergehenden und nach¬ 
folgenden Zeichen abgetrennt werden. 

Beispiel: 


110 REM f f + BEISPIEL: :f ♦ 

lEO REM IF... THEM...ELSE... *4* 

1 30 REM f ♦ + :f + + :f ♦ ♦ + ♦ ♦ f t + :f f- ♦ f * t f ♦ f ♦ ♦ + 

140 PR INT"J" 

150 PRirJT"ENDE DES PROGRAMMS J ODER N> ?" 
1 e 0 F E TC H " J N " , 1 , ANTU:^ 

170 REM ABFRAGE JA,NE IN 44* 

130 IF ANTL-J-^="J" THEN EFO: ELSE : GOTO 150 
130 EMO 
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9.2.2 REPEAT... UNTIL 


Format: REPEAT: Schleife : UNTIL Bedingung erfüllt 
Ziel: Wiederholen einer Anweisung bis eine Bedingung erfüllt 

ist. REPEAT... UNTIL führt eine ähnliche Funktion wie 
eine FÜR...NEXT-Schleife im Standard-BASIC aus. REPEAT 
startet die Ausführung der Schleife. UNTIL prüft auf 
eine Bedingung. Die Schleife wird verlassen^ wenn die 
Bedingung erfüllt ist. 

Beispiel: 


100 REM * * + ♦ t. ♦ + t ♦ t + ♦ 4 ♦ ♦ ♦ t- f 4 4 4 


1 10 

REN 

4 4 4 

BE ISPlEL 

4 4 4 

i£0 

REN 

4 4 4 

REPEHT...UNTIL... 

4 4 4 

130 

REN 

:f 4 4 

K 4 4 4 4 4: 4 4 4 4 4 f 4 4 4 4 4 4 4 4 4 4 4 4 4 

1S0 

160 

H=65 

REM 

4 4 4 

SCHLE IFENHNFFiNG 

4 4 4 


170 : REPEmT 
180 : PRINT 

130 : R=e+1 

800 : UNTIL n>71 

£10 REN 4:4 4 SCHLEIFENENDE 444 

££0 PR INT"ENDE" 


Ergebnis: 

Es werden die Zeichen A-G auf den Bildschirm geschrieben. 

9.2.3 RCOMP 

Format: RCOMP: Anweisung für wahr: ELSE: Anweisung für unwahr 
Ziel: Abfrage nach der gleichen Bedingung des zuletzt ausge¬ 

führten IF...THEN...ELSE-Befehls 

RCOMP ermöglicht es, die Bedingung in der zuletzt ausgeführten 
IF . . . TFIEN. . . ELSE-Abf rage zu prüfen. 

Dies ist besonders dann eine Erleichterung, wenn die Bedingung 
aus mehreren Verknüpfungen besteht. 
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Beispie 1: 


100 REI'1 + :f f ;f ;f ♦ f. :f f ;f. t :f f f ;f :f :f :f ;f ;f if ^ ♦ ♦ 

110 REN BEISPIEL : 1.1 ;f 

1£0 REM RCOMP ttf. 

130 REM f :f ♦ :f :f ♦ ;f ♦ :f :f * ♦ f :f t ♦ ♦ f ♦ * t * ♦ +• t t 

150 INPUT A 

160 IF t^=10 THEN PRINT "HALLO : ELSE: PRINT "AUF WIEDERSEHN 

170 RCÜMP:PRINT"HANS ELSE:PR INT"PETER 
180 RCÜMP:PR I NT"UND RENATE. " :ELSE:PR I NT"UND ERICH. " 

190 END 


Ergehn is: 

Nach dem INPUT wird dreimal auf die Bedingung A-10 abgefragt. 

9.2.4 LOOP...EXIT IF... END LOOP 

Format: LOOP:Programmschleife:EXIT IF Bedingung:END LOOP 
Ziel: Durchlaufen einer Schleife, bis eine Bedingung erfüllt 

ist. 

Dieser Befehl ermöglicht es, eine Programmschleife aufzubauen, 
in der die Bedingung des Schleifenendes in der Schleife festge¬ 
legt ist. Es können mehrere Bedingungen in der Schleife Vorkom¬ 
men. Ist eine Bedingung erfüllt, dann wird die Schleife verlas¬ 
sen, und der Befehl hinter der Programmschleife ausgeführt. Ist 
keine Bedingung erfüllt, so wird die Schleife erneut durchlaufen 

Beispiel: 

Zeichen zwischen A und F von der Tastatur auf den Bildschirm 
bringen. 

1 00 REM ;♦ * f t *■ * t f. * f. * t f-*■ * f- * * * * 11 * 

110 REM BEISPIEL 

120 REM LOOP... *** 

130 REM •+. + + EXIT IF... * * * 

140 REM END LOOP. . . *** 

1 60 REM + * :f * * Vf * ♦ ;f * f ;f * * ;f * ;f f. t ;f +. 

170 PRINT"BITTE EINEN BUCHSTABEN ZWISCHEN A UND F EINGEBEN!" 

180 REM :f:f* SCHLE IFENAPFANG *■* * 

190 LOOP 

200 : GET Pi-f 

210 : IF A^="" THEN 200 

220 : EXIT IF ASC<A^) < 66 

230 : EXIT IF ASC<A^> > 69 

240 : PRINT A^ 

250 END LOOP 

260 REM SCHLEIFENENDE *** 

270 PRINT A^; " LIEGT NICHT ZWISCHEN A UND F!" 

280 END 
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9.3 PrograBiniertechnik 

9.3.1 Einführung 

Um das Schreiben strukturierter Programme zu erleichtern, 
bietet SIMON's-BASIC vier Befehle, die es erlauben, Programm- 
Routinen mit Namen (LABEL) zu versehen und diese darunter auf¬ 
zurufen. Der Gebrauch von GOTO und GOSUB wird zum großen Teil 
überflüssig. 

In den folgenden Abschnitten werden diese Befehle erklärt und 
ein umfassendes Beispiel gegeben. 

9.3.2 PROC 

Format: PROC Label 

Ziel: Vergeben einer symbolischen Sprungadresse (Label) 

PROC bietet die Möglichkeit, einer Programmroutine eine 
symbolische Sprungadresse (Label) zuzuweisen. Alle Zeichen 
hinter dem Befehl PROC bilden den Label, unter dem die Routine 
dann aufgerufen werden kann. In dieser Programmzeile dürfen keine 
weiteren Anwesungen Vorkommen. 

Beispiel: 

Einer Programmroutine den Label ‘INPUT NAME" zuweisen. 

1000 PROC INPUT NAME 

9.3.3 END PROC 
Format: END PROC 

Ziel: Das Ende einer Routine festlegen. 

END PROC legt das Ende einer geschlossenen Routine fest. Der Be¬ 
fehl ist mit dem RETURN des Standard-BASIC vergleichbar. Er be¬ 
wirkt den Rücksprung auf den unmittelbar hinter EXEC folgenden 
Befehl. 

Beispiel: 

400 PROC IhPUT NPlI^ 

450 PRINT"»ITTE EINEN NAMEN EINGEBEN !" 

460 FETCH" 

470 REM ENDE DES UNTERPROGRAMMS*** 

480 EhD PROC 


Ergebnis: 

Dieses Unterprogramm kann mit dem Befehl EXEC INPUT NAME aufge¬ 
rufen werden. 

Achtung: 

END PROC darf nur hinter EXEC ausgeführt werden, da sonst die 
Fehlermeldung 

? END PROC WITHOUT EXEX IN... kommt. 
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9.3.4 CALL. 

Lormat: CALL Label 

Ziel: Sprung zu der symbolischen Sprungadresse (Label). 

Der Befehl CALL entspricht dem Befehl GOTO des Standard- 
BASIC. Hier wird aber nicht in eine feste Zeilennummer ge- 
sprungeny sondern zu einer symbolischen Sprungadresse (Label). 

9.3.5 EXEC 

Format: EXEC Label 

Ziel: Unterprogrammaufruf 

Der EXEC-Befehl entspricht dem GOSUB-Befeh 1 des Standard- 
BASIC. Das Unterprogramm wird hier aber unter einem symbo¬ 
lischen Namen (Label) aufgerufen. Nach dem Rücksprung aus dem 
Unterprogramm wird der Befehl unmittelbar hinter EXEC ausgeführt. 

Beispiel: 


100 
1 10 
IBQ 
130 
140 
150 
160 
1 70 
iS0 
130 


6 10 
£60 
630 
640 
650 
660 
670 
260 
630 


3 10 
360 
330 
340 
350 
360 
3 70 
330 
330 


R E t'1 f + + + t + t ♦ ♦ + t t ♦ t 4- + * 4 4: ;* 4 +444 4 4 4 4 4 4 
REM 444 BEISPIEL: 444 

REM 444 PRÜC...END PROC 444 

REM 444 CRLL...EXEC... 444 

RE!'l 4 4 4 4 4 4 4 4 4; 4 4 4 4 4 4 4 4 »; 4 4 4 4 4 4 4 4 4 4 4 4 4 

R E M 4 4 4 H A U P TP R Q G R A rt-1: 4 4 4 

R E r-l 4*4 SORTIER F' R OGR 0 MM F UE R MA ME t J 4 
REM 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 
I -- 1 

PR IMT " 4 4 4 SORTIERPROGRAm FLIER MAMEN 4444 " 

PPIMT-jaSIE KÜEMNEM HIER 10 NAMEN EINGEBEN, DIE DANT^J ALPHABETISCH SORTIERT 
PR II n "LJERDEN. " 

PRIMI "ÄtHE l'JAMEN DUERFEN NICHT L.AENGER ALS 20 BUCHSTABEN SEIN." 

PROC WEITER 
e:' :ec INPUT na me 
A 4>': I ' ^A 4> 

IF I : 10 TUEN I ^ I + 1 :ELSE:CALL FERTIG 
PR irTT’’ÄrJOCH EINEN NAMEN < J ODER N> 
f'ETCH " JN" , l .Bi 
IF THEN CALL WEITER 

I - I - 1 

PROC FERTIG 

IF II THEN EXEC SORT 

PR INT"*J" 

FÜR A=1 TO I 
: 2i = STRi<A) 

: LISE " tt tt . NAME : " , Z i : PR I NT Ai-< A ) 

NEXT A 
END 
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400 PROC INPUT NPML 

4 10 REM + +♦ 

480 REM ♦♦♦ UNTERPROGRPMM: 

430 REM ElhJGABE DES NAMEN ♦ ♦ * 

440 REM fr.+ ♦♦♦**+. ♦tt 

450 PR INT"||P ITTE EINEN mi'IEN E UKBEBEN ! •' 

460 FETCH" ||",20,A$ 

4 70 REM fft ENDE DES UNTERPROGRAMMS ♦ t-♦ 

480 END PROC 

430 : 

500 PROC 30RT 

5 10 REM + * ♦ ♦ ■* * +. *. ♦ ♦ ♦♦♦♦♦+: •> ♦ ♦ ♦ + t + f: f f + ♦ 

520 REM *■¥* UNTERPROGRAMM: »♦ ♦ 

530 REM + + :f SORTIEREN VON NAMIEIJ 

540 REM ♦: :f ♦ + ♦ ♦ +. ♦ ♦ ♦ + + ♦ ♦ f t- * ♦ + ♦ ¥ * ♦ f * ■¥ * * ♦ 

550 REPEAT 
560 : T=0 

570 : FOR A=i TÜ 1-1 

580 : IF A^( A >< A^< A 4-1 > THEN CALL f JEXT 

530 : IF A-^< A >-:A^( A+l > THEN CALL NEXT 

600 ; N*=A4>': A > ; A^< A > =A4f: A 4 l > : A-J-: A + 1 ' : T = 1 

610 : PROC NEXT 

620 : NEXT A 

630 UMHIL 1-0 

640 REM ♦ + :♦: ENDE DES UNTERPROGRAMMS f ♦ t 
650 END PROC 


♦ ♦ :f 4 : SOR T 1 ERPROGRAM1M FUER 1 lAMlEN 4 ♦ i f 

SIE KÜENNEN HIER 10 NAMIEN EINGEBEMN DIE DANN ALPHABETISCH SORTIERT NERÜEN. 
DIE NAMIEN DUERFEN NICHT LAENGER ALS 20 BUCHSTABEN SEIN. 

BITTE EINEN NAMEN EINGEBEN ! 

UUJE 

NOCH EINEN NAMEN •; J ODER N''' 

J 

BITTE EINEN NAMIEN EINGEBEN ! 

UTE 

NOCH EINEN NAMEN vJ ODER N> ? 

J 

BITTE EINEN NAMIEN EINGEBEN ! 

KARL 

NOCH EINEN NAMEN ■. J ODER N > ? 

J 

BITTE EINEN NAMIEN EINGEBEN ! 

KARLCHEN 

NOCH EINEN NAMIEN <J ODER N> V 
N 


1 . 

NA Mt 

KARL 

2 . 

NAME 

KARLCHEN 

3 . 

f lAME 

UTE 

4 . 

MAMIE 

UMJE 
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9.4 


VARIABLE 


9.4.1 Einführung 

Im Standard-BASIC müssen alle Variablen einen bestimmten Wert 
fiaben. Im SIMON’s-BASIC besteht nun die Möglichkeit, einer 
Variablen einen globalen Wert für das ganze Programm und an be¬ 
stimmten Stellen einen weiteren lokalen Wert zuzuweisen. 

Dabei geht der globale Wert nicht verloren. 

9.4.2 LOCAL 

Format: LOCAL Variable 1, Variable 2, Variable 3, . 

Ziel : Festlegen der Variablen an einer bestimmten Stelle 
im Programm. 

Der LOCAl.-Befeh 1 weist den Variablen neue Werte zu. 

Der ursprüngliche Wert dieser Variablen bleibt erhalten. 

Im Abschnitt 9.4.3 wird der Befehl LOCAL in einem Beispiel 
angewendet. 

9.4.3 GLOBAL 
f-ormat: GLOBAL 

Ziel : Wiederherstellen der ursprünglichen Wertzuweisung 
im Programm. 

Der GLOBAL-Befeh 1 stellt den ursprünglichen Zustand aller 
Variablen wieder her, die mit dem Befehl LOCAL verändert wurden. 

Beispiel: 


1 00 REI'1 1 ♦ ♦ * *■ t f ;f ♦ ;f + + ♦ ♦ t ♦ + + 

110 REM + + + BEISPIEL: 

120 REM fft GLOBAL... LOCAL... ♦ 

130 REM + :f + ■■¥ ;f. ♦ * ;f :f ;f + :f ;f + f * ;f ♦ + :f tftt ♦ 

i‘;0 PR INT" J" 

150 REM + .f:f FESTLEGEN DER ♦ + 

1B0 REM t*.* GLOBALEN UERTE + ♦ :* 

170 A^= "GLOBALER NERT " : A:<= 123 : A =456.7 
130 REM FESTLEGEN DER ;f. :f ♦ 

130 REM ♦♦♦ NEUEN MERTE 
200 LOCAL A^,A>:,A 

210 AT="NEUER WERT " : A:': = 456 : A =83 . 1 
220 FORINT A^,A/:,A 

230 REM + WIEDERHERSTELLEN DER + ♦ 

240 REM +.*+. GLOBALEN WERTE + + ♦ 

250 GLOBAL 
260 FORINT’ A^,A7:,A 

2 70 l:nd 


Ergehn is: 

Unter den neuen Werten werden die ursprünglichen Werte 
angezeigt. 
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9,5 


FEHLER-BEHANDLUNG 


9.5.1 EINFÜHRUNG 

SIMON's-BASIC bietet die Möglichkeit, Fehler im Programm auf¬ 
zufangen und das Abstürzen zu verhindern. Tritt ein Fehler auf, 
dann wird zu einer bestimmten Stelle im Programm verzweigt. 

Mit den Variablen ERRN und ERRLN kann anschließend festgestellt 
werden, um welchen Fehler (ERRN) es sich handelt, und in welcher 
BASIC-Zeile (ERRLN) er sich befindet. Mit diesen Informationen 
können Fehlermeldungen mit eigenem Text erstellt werden. Mit 
NO ERROR bzw. OUT kehrt man zur Fehlermeldung des Commodore 64 
zurück. 


9.5.2 ON ERROR 


Format: ON ERROR : GOTO Zeilennummer 
Ziel : Abfangen eines Programmfehlers 

Wie in einem Beispiel des Abschnitts 9.5.3 gezeigt wird, kann der 
Absturz eines Programms mit Hilfe dieses Befehls verhindert 
werden. Tritt ein Fehler auf, so springt das Programm in die 
angegebene Zeilennummer. In der Variablen ERRN wird die Fehler¬ 
nummer und in ERRLN die Zeilennummer, in der sich der Fehler 
befindet, gespeichert. 

Folgende Fehler können mit SIMON's-BASIC aufgefangen werden: 


Feh 1ernummer 

1 

2 

3 

4 

5 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 

9.5.3 NO ERROR 


Fehler 

TOO MANY FILES 
FILE OPEN 
FILE NOT OPEN 
FILE NOT FOUND 
DEVICE NOT PRESENT 
NEXT WITHOUT FOR 
SYNTAX 

RETURN WITHOUT GOSUB 
OUT OF DATA 
ILLEGAL QUANTITY 
OVERFLOW 
OUT OF MEMORY 
UNDEFINED STATMENT 
BAD SUBSCRIPT 
RE-DIMENSIONED ARRAY 
DIVISION BY ZERO 
ILLEGAL DIRECT 
TYPE MISMATCH 
STRING TOO LONG 


Format: NO ERROR 

Ziel : Fehlermeldung unterdrücken. 

Mit dem Befehl NO ERROR wird eine Fehlermeldung unterdrückt. 

Die Fehlerbehandlung des ON ERROR-Befehls wird gleichzeitig 
abgebrochen. Das Programm fährt fort. Tritt ein weiterer Fehler 
auf, so kommt eine Fehlermeldung des Standard-BASIC. 
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Beispiel: 


t00 REM 

110 REN +*♦ BEISPIEL: 1c*i( 

120 REM +♦+ FEHLERBEHeMDLUNG ♦♦♦ 

130 REM ♦ + »tf »it ♦ f t**t*:ic**l! 

140 ON ERROR:GOTO 1000 
150 REM +ft TEST FEHLER 

1S0 PRIM •'♦ + + ♦ + ♦ TEST FEHLER f ♦ * 111 ♦ * ♦ ♦ ♦ 111 " 

170 REHD B 

130 PRINT B: GOTO 170 

130 DHTH U£ ,3,4 ,5 

£00 PR I t rr '■ ■* 1 . 1 . 4: t !f t ♦ ♦ TES TEMDE 

£10 REM +♦♦ TESTENDE ♦♦♦ 

2£0 NO ERROR 

£30 END 

1000 IF ERRN =11 THEN PR I NT"STNTHX-FEHLER IN ZEILE"; ERRLN:CGOTO<ERRLN+10> 

1010 IF ERRN =13 THEN PRINT-ZU UENIG DH'FEN: FEHLER IN "; ERRLN: CGQTO': ERRLN+S0 > 
1020 NO ERROR 
1030 EMO 


Nach dem Programmstart wird folgendes ausgedruckt: 


S TN -FEHLER IN ZEILE 160 
1 
£ 

3 

4 

5 

Z'J NENIG DOTEN: FEHLER IN 170 

:f f f + + JE 3 TE ND E :f + f t + t :f. ♦ :f f. + :♦ t +• 


Ergehn is: 

Irotz der Fehler wird das Programm bis zum Ende ausgeführt. 
Die neuen Fehlermeldungen erscheinen auf dem Bildschirm. 
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9.5.4 OUT 


Format: OUT 

Ziel : Abschalten der S I MON" s-[)AvS I C Fet] 1 erbeha nd 1 u ng. 

Nach dem Befetil OUT unterliegt die Kontrolle der Fehlerbe¬ 
handlung wieder dem Commodor^e 64, d.h. es erscheinen die üt)- 
lichen Fehlermeldungen des Standard-hASlC. 

ABSCHNITT ZEHN 

MUSIKMACHEN MIT SIMON *S-BASIC 

10.1 Einleitung 

Eine der interessantesten Besonderheiten des Commodore 64 ist 
die Möglichkeit, Musikstücke zu programmieren. Mit Übung und Er¬ 
fahrung kann man den Klang vieler verschiedener Musikinstrumente 
nachbilden. Im Standard-BASlC benötigt man dazu viele FH3KE- 
Befehle. SIMON's-BASIC bietet Befehle, die die Musikprogramm¬ 
ierung wesentlich vereinfachen. Um mit dem Commodore 64 Musik 
zu machen, ist die Einstellung folgender Parameter erforderlich: 

-Lautstärke 
-We1lenform 
-Hü 1 Ikurve 
-Stimme 
-Note 

10.2 MUSIK-Befehle 
10.2.1 VOL 

Format: VOL n 

Ziel : Lautstärke einstellen. 

Der VOL-Befehl stellt die Lautstärke der drei Tongeneratoren 
ein. Der Parameter n kann Werte von 0 bis 15 annehmen. 
n=0 schaltet die Tongeneratoren ab. 
n=15 ist die maximale Lautstärke. 
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10.2.2 WAVE 


Format: WAVE, St, Binärziffer 
Ziel : Einstellen der Wellenform 

Die Wellenform bestimmt den Klangcharakter der drei Tongenera¬ 
toren (Stimmen) des Commodore 64 

St = 1 Stimme 1 

St = 2 Stimme 2 

St = 3 Stimme 3 

Der zweite Parameter im WAVE-Befehl ist eine Binärziffer. 

Durch setzen der einzelnen Bits (1) wird der Charakter des 
Tones eingestellt. 

76543210 

das Gate-Bit (nicht erforderlich) 
Synchronisation 
Ringmodulation 

ein Test-Bit (sollte nicht ges.werden) 
Drei eck-Wellenform 
Sägezah n-We1lenform 
Rechteck-Wellenform 
Rauschen 

Genauere Erklärung der einzelnen Bits: 

Bit 0 - Das Gate-Bit 

Dieses Bit triggert den Hü 1Ikurven-Generator. Wenn dieses Bit 
gesetzt ist sind die ATTACK-DECAY-SUSTAIN-Cyclen initiali¬ 
siert. Geht das Bit auf 0, dann beginnt der RELEASE-Cyclus. 
(siehe Abschnitt 10.4.3. und 10.4.4) 

Dieses Bit wird automatisch bei der Ausführung des Play-Befehls 
gesteuert. 

Bit 1 - Synchronisation 


Dieses Bit gibt die Möglichkeit, die Frequenz einer Stimme mit 
der Frequenz einer anderen Stimme zu synchronisieren. 


Bit 1 gesetzt 
in Stimme 

Funktion 

1 

Synchronisiert Grundfrequenz Stimme 1 


mit Stimme 3 

2 

Synchronisiert Grundfrequenz Stimme 2 


mit Stimme 1 

3 

Synchronisiert Grundfrequenz Stimme 3 


mit Stimme 2 


setzt 

— setzt 

— setzt 

— setzt 

— setzt 

— setzt 

— setzt 
-- setzt 
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Synchronisiert man eine Stimme mit variabler Frequenz mit einer, 
die eine feste Frequenz besitzt, so kann man sehr komplexe Klänge 
erzeugen. Die besten Ergebnisse erzielt man, wenn man die feste 
Frequenz tiefer wählt, als die variable Frequenz. 

Bit 2 - Ringmodulation 

Bei der Ringmodulation wird die Dreieckswelle durch eine Wellen¬ 
form ersetzt, die durch Kombination der gewählten Stimme mit 
einer anderen (vom Betriebssystem festgelegten) Stimme entsteht. 
Auch hier empfiehlt sich (wie bei der Synchronisation), die 
Frequenz einer Stimme konstant zu halten und die andere zu 
variieren. Welche Stimmen kombiniert werden, gibt die folgende 
Tabelle an. 


Stimme 

(Ausgang Dreieck) 
Bit 2 gesetzt 


1 

2 

3 


Modulations Signal 


Stimme 1 mit Stimme 3 
Stimme 2.mit Stimme 1 
Stimme 3 mit Stimme 2 


Hierbei entstehen nicht-harmonische Obertonschwingungen. Es 
können Spezialeffekte wie Gong und Glocken nachgebildet werden. 

Bit 3 - Test Bit 


Dieses Bit wird nicht in SIMON's-BASIC verwendet. Es sollte 
nicht gesetzt werde. 

Bit 4 - Dreieck Wellenform 

Schaltet den Dreieck-Oszillator ein. Eine Dreieck-Schwingung 
hat wenig harmonische Obertöne. 

Bit 5 - Sägezahn Wellenform 

Schaltet den Sägezahn-Oszillator ein. Eine Sägezahn-Schwingung 
hat viele gerade und ungerade harmonische Obertöne. 

Bit 6 - Rechteck Wellenform 

Schaltet den Rechteck-Oszillator ein. Der Anteil der Obertöne 
wird dur'ch die Pulsbreite bestimmt. 

Bit 7 - Rauschen 

Schaltet den Rauschgenerator ein. Das Rauschen ist von den 
der Oszillatorfrequenz abhängig. 

Beispiel. 

20 WAVE 1,00010000 
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10.2.3 ENVELOPE 

Format: ENVELOPE Stimme, Attack, Decay, Sustain, Release 
Ziel : Einstellen der Hüllkurve. 

Die Hüllkurve jeder Stimme kann getrennt eingestellt werden. 
Sie besteht aus vier Parametern. 

Attack, Decay, Sustain, Release 

Bedeutung der Parameter: 


Laut¬ 

stärke 



J 


maxima le 
Lautst. 



-«vAt tac k 


Decav 


y Su 


sta i n -s 


- Re lease»- 


Ze i t 


Beispiel: 

Erstellen einer Hüllkurve für Stimme 1 

30 ENVELOPE 1,8,8,8,0 

Ergebnis: 

Alle Noten der Stimme 1, die nach diesem Befehl gespielt werden, 
folgen dem eingestellten Hüllkurvenverlauf. 

10.2.4 MUSIC 

Format: MUSIC n, "Noten" 

oder : MUSIC n, Stringvariable 

Ziel : Festlegen der Noten, die gespielt werden sollen. 

In dem Befehl MUSIK werden weitere Parameter festgelegt, die 
den entstehenden Ton beeinflussen. 

Der Parameter n bestimmt die Tondauer und muß im Bereich von 
1 bis 255 liegen. 

Der nächste Parameter legt die Tonhöhe und -dauer einer oder 
mehrerer Noten fest. 

Zunächst wird in dem String nach SHIFT CLR/HOME die 
Stimme (1-3) festgelegt. 

Danach folgt eine Steuertaste (F1-F8) für den Takt und die 
Note (C0-A7). 
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Funktionen der Steuertasten: 


Taste 

Funktion 


SHIFT CLR/HOME 

+ Ziffer 1-3 legt die Stimme fest. 


Fl 

die nachfolgende Note wird als 1/16 

Note gesp. 

F3 

1/8 


F5 

1/4 


F7 

1/2 


F2 

1/1 


F4 

• 2/1 


F6 

4/1 


F8 

8/1 


Jede Note besteht 

aus einem Buchstaben (C-H) und einer 

Oktave 

(0-7). Man erhält 

die um einen halben Ton erhöhte Note, 

wenn 


man gleichzeitig mit dem Notennamen die SHIFT-Taste drückt. 

Am Ende jedes Noten-Strings muß SHIFT CLR/HOME und G 
eingegeben werden. Dies startet den RELEASE-Abschnitt der 
letzten Note. 

Beispiel: siehe Abschnitt 10.2.5 

10.2.5 PLAY 

Format: PLAY n 

Ziel : Wiedergabe der Musik 

Der PLAY-Befehl startet das Spielen der komponierten Musik. 
Der Parameter n bezieht sich auf die Ausführung des weiteren 
Programms. 

n=0 : Musik aus 

n=l : spielt die Musik und wartet mit der weiteren Ausführung 
des Programms. 

n=2 : spielt Musik und fährt mit der Programmausführung fort. 


73 





Beispiel 


100 REM ****♦*♦***♦**♦**♦»+♦♦***♦*♦*:♦*)* 
110 REM **♦ BEISPIEL: «:«« 

1£0 REM ♦♦♦ MUSIK 

130 REM ♦♦**♦♦♦♦*♦♦♦**;*♦**♦*♦♦**♦**♦♦*♦ 
140 REM LAUTSTAERKE EINSTELLEN ♦** 

150 VOL 10 

160 REM Mt** WELLEhFORM EINSTELLEN Mt Mt* 
170 t^JAVE 1^00010000 

180 REM *** HUELLKURVE EINSTELLEN *Mt* 
190 EWELOPE 1,8,8,8,0 

200 REM *** FESTLEGEN DER NOTEN Mt** 

2 10 A^= "JlZap5K:5tf=5H" 

220 A2$= "G5|P5^5aF5HG5|P5lE;5iF5^5S'' 


230 A2-.$ = A2:$+ *'E5aC5S;5S35|K:5K5MD5HC5||" 
£40 A£it = A£^+-C5itf:5aB5a35iF5|»^5ff:5Ä^5B" 
250 A24> = A2:*+ "G5SE:5aC5aB35aC5aC5BC5^5B" 
260 A2$=A2^+"F5B" 

270 A3^^= "C5iC5H" 

280 MUS IC 8,A^ + A2$ + A£^+A3$ 

290 REM *** MUSIK SPIELEN *** 

300 PLAY 1 

310 REM *** LAUTSTAERKE 0 *** 

320 VOL 0 
330 END 


Ergebnis: 

"WHEN THE SAINTS GO MARCHING IN" 
wird gespielt. 
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ABSCHNITT ELF 


FUNKTIONEN FÜR LIGHTPEN, JOYSTICK, ODER PADDLE 

11.1 Einführung 

Dieser Abschnitt beschreibt vier Lesefunktionen des SIMON's- 
BASIC. Mit diesen Funktionen kann die Position von LIGHTPEN, 
JOYSTICK oder PADDLE bestimmt werden. 

11.2 PENX 

Format: Variable = PENX 

Ziel : Bestimmen der X-Koordinate des LIGHTPEN. 

PENX gibt die Position des LIGHTPEN relativ zum linken 
Bildschirmrand an (0 bis 320) 

11.3 PENY 

Format: Variable = PENY 

Ziel : Bestimmen der Y-Koordinate des LIGHTPEN. 

PENY gibt den Abstand vom oberen Bildschirmrand an. (0 bis 200) 

11.4 POT 

Format: Variable = POT (0) 
oder : Variable = POT (1) 

Ziel : Den Widerstand des Paddle feststellen. 

Die POT-Funktion ermöglicht es, die Stellung der Paddies 
festzustellen. Das Ergebnis liegt im Bereich von 0 bis 255. 

Die Ziffer hinter dem POT-Befehl gibt an, welches Paddle 
abgefragt werden soll. 

11.5 aOY 

Format: Variable = JOY 

Ziel : Die Funktionen des JOYSTICK bestimmen. 

Mit dem JOY-Befehl kann man feststellen, in welche Richtung 
der JOYSTICK zeigt, oder ob der Feuerknopf gedrückt wurde. 

Feuer = 128 _ 

[ 128 ^ 


8 

1 

2 

7 

0 

3 

6 

5 

4 
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Beispiel: 


100 REM *>*^t3f**».**it 

110 REM ♦♦♦ BEISPIEL: 

120 REM BEDIENUNG DES JOYSTICK 

130 REM t*Ai-***:¥*^*******t*tt*t****^ 
140 REM *** BILDSCHIRMSTARTADRESSE 
150 B= 1024 

160 REM FRRBi^DRESSE 

170 C=55236 
1S0 REM ♦♦♦ 

190 D= 420 
200 PRINT"J’ 


POS ITI DNSRENDERUNG 


2 10 

220 

REM ♦♦♦ 

P=JOY 

JOYSTI CK-ABFRAGE 

230 

IF 

P= 1 

THEN 

D=D-40 

240 

IF 

OJ 

11 

Q. 

THEN 

D=D-39 

250 

IF 

P = 3 

THEN 

□ 

II 

□ 

260 

IF 

II 

OL 

THEN 

D=D+4 1 

270 

IF 

P=5 

THEN 

D=D+40 

280 

IF 

P=6 

THEN 

D=D+39 

290 

IF 

P = 7 

THEN 

O 

II 

O 

300 

IF 

CO 

n 

Q. 

THEN 

o 

II 

□ 

3 10 

REM ♦ 

BILC 

ISCHIRM BEGREf 

320 

IF 

D< 1 

THEN 

D= 1 


330 IF D>999 THEN D=999 

340 REM BILDSCHIRM LOESCHEN 

350 IF P=128 THEN GOTO 200 

360 REM ■*** ZEICHEN POKEN 

370 POKE C+D,0 

380 POKE B+D,102 

390 GOTO 220 


♦ * ♦ * 

* ♦ ♦ 




•t •+ * 


♦ ♦ ♦ 

♦ :f 
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Alle Rechte, auch die der Übersetzung in fremde Sprachen, Vorbehalten. 

Kein Teil dieses Programms oder der technischen Beschreibung/der Spielanleitung 
darf ohne schriftliche Genehmigung der Commodore GmbH 
in irgendeiner Form reproduziert oder unter Verwendung elektronischer Systeme 
verarbeitet, vervielfältigt oder verbreitet werden. 
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